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.REM_ 
IDENTIFICATION 

PRODUCT XD: AC T814A-MC 

PROOUCT TITLE: CNTSAAO TSV05 CTRL LT1 

DECO/DF.PO: 1.0 

DEPARTMENT: ISS/DIAGNOST IC SERVICES 

DATE: APRIL 09, 1984 



THE INFORMATION IN THIS D0OJ*NT IS SUBJECT TO CHANGE WITHOUT 
NOTICE ANO SHOULD NOT BE CONSTRUEO AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAL IN THIS DOCUMENT, 



NO RESPONSIBILITY IS ASSUMED FOR THE USE 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED 
AFFIi IATED COMPANIES. 



OR RELIABILIT* OF 
BY DIGITAL OR ITS 



COPfRIGHT (C) i-yjA BY DIGITAL EQUIPMENT CORPORATION 



THE FOLLOWING ARE. TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

MASSBU^ 



DIGITAL 
DEC 



POP 
UECUS 



UN I BUS 
DECTAFfc 



CI 
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SEQ 0002 



TABLE OF CONTENTS 



1.0 GENERAL INFORMATION 

1 .1 PROGRAM ABSTRACT 
1.? SYSTEM REQUIREMENTS 

1.3 RELATED DOCUMENTS ANO STANDARDS 

1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

1.5 ASSUMPTIONS 

2.0 OPERATING INSTRUCTIONS 

2 .1 COMMANDS 

2.2 SWITCHES 

2.3 FLAGS 

2.4 HARDWARE QUESTIONS 

2.5 SOFTWARE QUESTIONS 

2.6 EXTENOED P-TABLE DIALOGUE 

2.7 QUICK STARTUP PROCEDURE 

3.0 ERROR INFORMATION 

4.0 PERFORMANCE AND PROGRESS REPORTS 

5.0 DEVICE INFORMATION TABLES 

6.0 TEST SUMMARIES 

7,0 MAINTENANCE HISTORY 
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SEQ 0003 



1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THIS IS A SBC 11 '21* RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
Of A TSV05 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A SBC-11/21* SYSTEM 
(Q-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FACTIONS THAT AID IN THE REPAIR OF THE DEVICE, THIS DIAGNOSTIC CONSISTS 
OF ELEVEN TEST WHICH ARE EXECUTED IN SEQUENCE. 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR US C . WITH THE DIAGNOSTIC 
PWTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP*. ACT, APT, SLIDE ANO PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDPf USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RLNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

SBC 11/21 ♦ PROCESSOR AND MEMORY 

CAUTION;DIAGNOSTIC REQUIRES 52K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 
TSV05 MAGTAPE SUBSYSTEM (DRIVE ANO CONTROLLER) 

CONSOLE TERMINAL 
PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SyS VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER /MONITOR (XXOPO 



1.3 RELATED DOCUMENTS ANO STANOARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 

1. XXDP* USERS GUIDE 

e. TSV05 TRANSPORT SUBSYSTEM USER'S GUIDE 

3. TSV05 TRANSPORT SUBSYSTEM TECHNICAL MANUAL 

4. TSV05 TRANSPORT SUBSYSTEM INSTALLATION MANUAL 



1.4 DIAGNOSTIC HlERARCt PREREQUISITE^ 

FUNCTIONAL SBC-11'21* CENTRAL PROCESSOR ANO MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANOALONt DIAGNOSTIC SUPERVISOR 

JUNCTIONAL DIAGNOSTIC LOADER/MONITOR ( XXDP O 



"l.'i AS r >UMPT IONS 
ALL HARDWARE EXCEPT THE HARDWARE UNDcR TtttT XV "ASSUMtD TO WORK 
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SEQ 0004 



PROPEML> 
THE TAPE 
OF TAPE, 



OR FALSE ERRORS CAN BE 
BEING USED ON THE TS05 



REPORTED, 
TRANSPORT 



IS A KNOWN GOOD REEL 



2.0 OPERATING INSTRUCTIONS 



THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDPf USER'S MANUAL. 



1 



COMMANDS 



THERE ARE ELEVEN LEGAL COMMANOS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SL^ER VISOR). THiS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 



COMMAND 



EFFECT 



START 

RESTART 

CONTINUE 

PROCEED 

EXIT 

ADD 

DROP 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 



START THE DIAGNOSTIC FROM AN INITIAL STATE 

START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER to 

CONTINUE FROM AN ERROR HALT 

RETURN TO XXDP* MONITOR (XXDP* OPERATION ONLY!) 

ACTIVATE A WIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DEACTIVATE A UNIT 

PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

TYPE A LIST OF ALL DEVICE INFORMATION 

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2,3) 

CLEAR ALL FLAGS (SEE SECTION 2.3) 



A COMMANO CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS, 
YOU MAY. FOR EXAMPLE, TYPE "STA" INSTEAD OF "START", 

2.1.1 OPERATOR COMMANOS 



SO 



THE TSV05 DIAGNOSTIC IS A SBC-11/21* DIAGNOSTIC 
PROGRAM. ALL LOADING ANO RlXTIME INSTRUCTIONS 
XXDP* USERS GUIDE. THE USER ENTRY IS IN QUOTES, 



SUPERVISOR COMPATIBLE 
CAN BE REFERENCED IN THE 



B001 THE DIAGNOSTIC MEDIA 



.R NTSA?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 

CNTSA-A-O 

♦ ••♦TSV05 ' OGIC DIAGNOSTIC*"* 

LN1T IS TSV05 

>DR 



^.2 



5WlTCHtS 

TH£gL ABE ;S£U£BfiL .SUIKHE5 WHICH ABL USLG WMQMFt dUP££yiSQ£ QgJEBATIQfeL 
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SEQ 0005 

THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. AH OF THE LEGAL 

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMQER IS DESIGNATED BY "DDDDD". 

SWITCH EFFECT 



/TESTSjLIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 

THE LIST, LIST IS A STRING OF TEST 
NLUBERS, FOR EXAMPLE - /TESTS} 1 :5: 7 - 10. 
TUTS LIST WILL CAUSE TESTS 1.5,7.8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS:ODDDO EXECUTE DDDOD PASSES CDDDDD ■ 1 TO 64000) 

/FLAGStFLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 

IN SECTION 2,3, 

/EOP:DDDDO REPORT END OF PASS MESSAGE AFTER EVERY 

DDDDD PASSES ONLY. (DDDDD - I TO 64000) 

/UNITSjLIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIS T EXAMPLE - /UNITS :0:5: 10- 12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS - 0-63) 

EXAMPLE OF SWITCH USAGE: 

START/TESTS:l-5/PASS:1000/£0P:100 

THE EFFECT OF THIS COMMANO WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED. 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY, A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS, YOU MAY, 
FOR EXAMPLE, TYPE "/TES:l-5" INSTEAD OF "/TESTS: 1 -5" . 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMANO. 

TESTS PASS FLAGS EOP UNITS 

START XX XX X 
RESTART XX XX X 
CONTINUE X XX 

PROCEED X 

_DROP X 

ADD X 

PRINT 

DISPLAY X 

FLAGS 
/FLAGS 
EXIT 

t >.3 FLAGS 

flags pre used to set up certain operational parameters such as 
looping on error. all flags are cleareo at startup and remain 
cieareo until txpi ici»ly set using the flags switch. flags 
are also cleared after a start commano unless set using the 
flag switch, the /flags commano may also be used to clear 
all flags. w.'.th the exception of the start and zflags commands, 

NU COMMANDS AE*TCI ItC-SUl£.'X)£ IHL FLAGSj IWEY REMAIN SET OR 
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SEQ 0006 



CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH, 



FLAG 

HOE 

LOE 

IER* 

IBR* 



IXE* 

PRI 
PNT 
BOE 
UAH 
ISR 



I OR 
ADR 
LOT 



EFFECT 



HALT ON 
RUNTIME 
LOOP ON 
INHIBIT 
INHIBIT 
FIRST LEVEL 
ERROR TYPE, 



ERROR - CONTROL IS RETURNED TO 

SERVICES COMMAND MODE 

ERROR 

ALL ERROR REPORTS 

ALL ERROR REPORTS EXCEPT 

(FIRST LEVEL CONTAINS 
NUMBER, PC, TEST AND UNIT) 



INHIBIT EXTENDED MROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

DIRECT MESSAGES TO LINE PRINTER 

PRINT TEST NUMBER AS TEST EXECUTES 

"BELL '* ON ERROR 

UNATTENDED MODE (NO MANUAL INTERVENTION) 

INHIBI7 STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 

STATISTICAL REPORTING) 

INHIBIT PROGRAM DROPPING OF UNITS 

EXECUTE AUTODROP CODE 

LOOP ON TEST 

♦ ERROR MESSAGE'S ARE DESCRIBED IN SECTION 3.1 



SEE THE XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MOTI THAN ONE FLAG WITH THE FLAG SWITCH. FOP EXAMPLE, 
TO CAUSE THE PROGRAM TO LOCK' ON ERROR, INHIBIT ERROR REPORTS 
ANO TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 

/FLAGSjLOEjIER:BOE 



2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTEO, HE RUNTIME SERVICES WILL PROMPT 
"THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?" 
YOU MUST ANSWER "Y" AFTER A START COMMAND UNLEFS THE HARDWARE 
INFORMATION HAS BEEN "PRELOADED*' USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP» USER'S hANUAL \ WHEN YOU ANSWER THIS 
QUESTION WITH A *'Y", THE RUNTIME SERVES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE iHf "CHANGE HW , " QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPr : RATOR). 



ON A "N" (NO) 
W£i USI&C THC 



RESPONSE TO THE "CHANGE HW?" QUESTION, THE DIAGNOSHC WILL 

DEFAULT VALUES FOR ALL QUESTIONS* THE. C'LFAULT AHQHESS AND VLCTQR AREi 



TSQA/TSDB * 17&QQQ, VECTOR * 2H4 
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SEQ 0007 



ON A "Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTEO. A 
VALUE. IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "CO)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "(L)" INDICATES THAT A LOGICAL RESPONSF IS TO BE MADE} 
"Y" FOR YES, "N" FOR NO, 



UNITS CD) ? 



UNIT 



<ENTER THE NUMBFR OF '17196 CONTROLLERS 
PRESENT TO BE eSP-r** 



DEVICE ADDRESS 
VECTOR (0) 224 ? 



CO) 176000 ? <ENTER THE ADDRESS OF THE 
TSBA/TSD8 REGISTER 



<ENTCR ADDRESS OF INTERRUPT 
VECTOR> 



THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "0 UNITS?" QUESTION. 



THE NUMBER OF 
LOGICAL UNIT 



NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0, UP TO FOUR 'UNITS CAN BE 

SELECTED FOR TESTING AS FOLLOWS: 

JP TO 4 TSV05 CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER 

2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

0« CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ?" 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER Br TYPING 

"Y'\ THE SOFTWARE QUESTIONS ANO THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH( S). 



THf FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART, 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 



OR CONTINUE. 



CHANGE SW (L) ? 



<TVPE Y TO 
QUESTIONS 



INHIBIT ITERATIONS (L) N ? 



CAUSE THE FOLLOWING 
VO BE ASKED> 

<TYPE "Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS, > 



2.6 EXTENOED P- TABLE DIALOGUE 



WHEN YOU ANSWER THE HAROWARE QUESTIONS. YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAi TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
»*4IT TO BE USTFO. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
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SEQ 0008 



DEVlCt WITH 
THe ANSWERS 



SEVERAL L.NES. THIS BECOMES TEDIOUS SINCE MOST OF 
ARE REPETITIOUS. 



TO ILLUSTRATE A MORE fFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
A DEVICE, THE XYll. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH E: r »HT UNITS (SUB -DEVICES) ATTACHED TC IT. 
THESE «JNITS ARE DESCRIBED o t THE OCTAL NUMBERS THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q FACTOR, THIS Q FACTOR MAY BE OR 1 . BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XYll WITH EIGHT UNITS, 

WITS (0) ? 8<CR> 

UN It I 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 0<CR> 
Q-FACTOR (0) ? 1<CR> 



UNIT Z 

CSF ADDRESS (0) 
SUC DEVICE * (0) 
Q-FACTOR (0) 1 ? 



1 160000<CR> 
? 1<CR> 

0<CR> 



UNI r 3 

CSR ADDRESS (0) 
SUB-DEVICE (0) 
Q-FACTOR (0) ? 



1600OO<CR> 
? 2<CR> 
<CR> 



UNIT 4 

CSR ADDRESS (0) ? 1600OO<CR> 
SUB DEVICE (0) ? 3<CR> 
Q-FACTOR (0) ? <CR> 



UNIT 5 

CSR ADDRESS (0) 
SUB DEVICE * (0) 
Q-FACTOR (0) ? 



1600O0<CR> 
? 4<CR> 
<CR> 



L*JIT 6 

CSR MDDRESS <0) ? 1600O0<CR> 
SUB DEVICE * (0) ? 5<CR> 
Q-FACTOR (0) C ? <CR> 



UNIT 7 

CSR ADDRESS (0) 
SUB-DEVICE (0) 
Q-FACTOR (0) ? 

LNIT 6 

CSR ADDRESS kO) 
SUB-DEVICE 9 (0) 
Q-FACTOR CO) 1 ? 



160000 <CR> 
? 6<CR> 
1<CR> 



160000 <CR> 
? 7<CR> 

<CN> 



NOTICt THAT THE DEFALK T 
NON DEFALK, i RESPONSE IS 
MULTIPLE UNITS! 



VALUE FOR THE G FACTOR CHANGES WHEN A 
GIVEN, BE CAREFUL WHEN SPECIFYING 



Jl 
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SEQ 0009 



AS YOU CAM SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT, 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER, 
LET'S BUILD THE SAME TABLE USXNG THE MULTIPLE SPECIFICATION 
FEATURE. 

UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * CO) ? 0,1<CR> 
Q-FACTOR (0) ? 1,0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB DEVICE (0) ? 2 b<CR> 
Q-FACTOR CO) ? 0<CR> 

UNIT 7 

CSR AD0RE5S (0) ? 160000<CR> 
SUB-DEVICE (0) ? 6,7<CR> 
Q-FACTOR (0) ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES ANO Q-FACTQRS WERE SPECIFIED, THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT, THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECiriED. THE 
"-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECONO. IN THIS CASE, SUB DEVICES 
2. 3. 4 AND 5 WERE SPECIFIED. (IF THE SUB- DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULO BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN 80UN0ARY . ) THE CSR ADDRESSES ANO Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 ANO RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCC . THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

-THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED .N ONE PASS AS 
SHOWN BELOW. 

* UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE O (0) ? 7<CR> 
Q-TACTOR (0) ? 0, 1,0, , , , I , 1<CR> 

AS rOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TEl I THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 

..■?.? QUICK START UP PROCEDURE (XXDPt) 

TO START-UP THIS PROGRAM: 



K 1 
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1. BOOT XXDP* 



SEQ 00iu 



2. TYPE "R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 

3. TYPE "START" 

4. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

5. ANSWER ALL THE HARDWARE QUESTIONS 

6. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2,3 AND 2,5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC ANO EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "IER" FLAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM- 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

.WHERE; NAME • DIAGNOSTIC NAME 

TYPE - ERROR TYPE (SYS FATAL, DEV FATAL. HARD OR SOFT) 

NUMBER - ERROR NUMBER 

UNIT NLWBER - - N (N IS LAST UNIT IN P . ABLE ) 

TST NUMBER - TEST AND SUBTEST WHERE ERROR OCCURRED 

PC:XXXXXX ■ ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "IER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENOED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTtNTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "IER". "IBR" OR "IXE" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE ANO ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 

ERROR MESSAGE EXAMPLE 1 
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SEQ 0011 



THI3 ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC. THE FIRST Pmh i" DEFINES THE TEST FUNCTION AND UNIT THAT FAILED, 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 

DATA. 



TST: 016 FIFO EXERCISER TEST 

CNTSA HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: C40624 

9) INCORRECT AFTER WRITE FIFO 



TAPE BUS SIGNALS IN WORD 08: DESIGNATOR 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> 
1RESV2<14> IIDENT<11> IHER <8> I0NL<5> 
IRESV1<13> ICFR <10> ISPEE0<7> ILDP<4> 

TAPE BUS SIGINALS IN WORD 09: 
DATMIS<7> ILW<6> 0UTRDY<5> INRDY<4> 

MESSAGE BUFFER ADDRESS • 0473S2 

MESSAGE BUFFER CONTENTS: 
WORD 00 EXPO: 100020 RECV: 



<BIT 0> 
IR^D<2> 
IFBY<1> 
IFPT<0> 



WORD 01 EXPO: 
WORD H2 EXPD; 
WORD 03 EXPD: 
WORD 04 EXPD: 
!0R0 05 EXPD: 
WORD 06 EXPD- 
WORD 07 Er. . 
WORD 08 EXPD: 
WORD 09 EXPD: 



000012 
000000 
000010 
000000 
000000 
000000 
000000 
070217 
000074 



RECV: 
RECV: 
RECVt 
RECV: 
RECV: 
RECV: 
RECV; 

RECV: 



100020 
000012 
000000 
000010 
OOOOOO 
000000 
OOOOOO 
OOOOOO 
070217 
000034 



XOR: 
XOR: 
X03: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 



OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
000040 



ERROR MESSAGE EXAMPLE 2 

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM ,. TAPE DRIVE, IN THIS 
INSTANCE A ^UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 



CNTSA HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026203 
TSSR NOT CORRECT AFTER SPACE RECOFDS COMMAND 

TSSR - 100214 

TSSR BITS SET: SC, SSR 

TERMINATION CLASS CODE « 

PACKET ADDRESS - 026420 

PACKET WORD - 140010 

PACKET WORD - 000010 

PACKET WORD - OOOOOO 

PACKET WORD - 000024 



UNRECOVERABLE ERROR 



ERROR MESSAGE EXAMPLE 3 

THIS ERROR SHOWS THAT 1HI MOTION BIT DID NOT GET SET WHILF DOING A RLWIKG 
WITH EXTENDED FEATURES MODE ENABLED. 



CNTb HRD ERR QQ121 QN UNI I 00 1ST 001 SUB 002 PC; Q2S3Q6 



Ml 
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SEQ 0012 

MOT BIT CXSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPO: 000312 RECV j 000112 XOR j 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT the END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2,2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE (PDP-11/23) 

DR>STA/FLA:PNT:HOE 

UNITS (D) ? 1 

UNIT 

DEVICE ADDRESS (0) 176000 ? <CR> 

VECTOR CO) 224 7 <CR> 

CHANGE SW CD ? N<CR> 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC, THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" AND "HALT ON 
ERROR". 

TST: 001 INITIALIZE 01 

TST: 002 WRAP DATA HIGH BYTE TEST 

TST: 003 WRAP DATA LOW BYTE TEST 

TST: 004 RAM TEST 

TST: 005 INITIALIZE 2 TEST 

TST: 006 COMMANO REJECT TEST 

TST: 007 WRITE CHARACTREISTICS TEST 

TST. 008 VOLUME CHECK 

TST: 009 COMPLETION INTERRUPT TEST 

TST: 010 BASIC PACKET PROTOCOL TEST 

TST: Oil NON-TAPE -MOTION COMMANDS TEST 

ERRORS 

NOTE. THE DIAGNOSTTC WILL RUN CONTINUOSLY UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WITH THE "/PASS:" SWITCH. 

PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES Of THE PROGRAM ARE LISTED BELOW. THESE Fft'URES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON THE FALCON* 
PROCESSOR. 

THE PROGRAM RUNS IN TWO MODES t NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED Y 



Nl 
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SEQ 0013 

THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 

TIMES REQUIRED TO RUN TESTS 1 THROUGH 12: 

Q.V. 2 MIN lb SECONDS 
DEFAULT 16 MINS 

MORE EXHAUSTIVE CHECKS ARE AVAILABLE BY ALLOWING THE DIAGNOSTIC PROGRAMS 
TO RUN FOR MORE THAN ONE PASS. THE SECOND PASS OF THE PROGRAM IS MORE 
COMPREHENSIVE THAN THE FIRST PASS. ALL ITERATIONS AFTER THE FIRST PASS 
ARE THE SAME* HOWEVER, THEY ARE SUBSTANTIALLY LONGER. 

5.0 DEVICE INFORMATION TABLES 

WHENEVER THE F . xSRAM IS STARTED, VIA THE STA(RT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P -TABLES PARAMETER 
CHANGES: 

CHANG* HW CD ? 

UNITS CD) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 

PRESENT TO BE TESTED> 

UNIT 

DEVICE ADDRESS (0) 1V6000 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGIS TER> 

VECTOR CO) 224 ? 'ENTER ADDRESS OF INTERRUPT 

VECTOR* 

THE ADDRESS AND VECTOP QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 

UNITS (CONTROLLERS) SPECIFIED IN THE UNITS?" QUESTION. LOGICAL UNIT 

NLWBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOk TESTING. 

IN flJITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 

FOLLOWS: 

CHANGE SW CD ? 

INHIBIT ITERAiIONS CD N 7 

6.0 TKST SUMMARIES 
TEST it BUS RESET TES T 



B2 



USER DOCUMENTATION MACRO M1200 23-MAR-84 09:44 PAGE 4-11 



THIS TEST VERIFIES THAT THE M7196 MODULE'S DEVICE REGISTERS ARE 
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE 
BUILT-IN INITIALIZATION SELF-TEST MI CROO I AGNOSTIC DID NOT FINO 
ANY BASIC PROBLEMS IN THE MOOULE , AREAS OF LOGIC TESTED BY THE 
SELF -TEST SEQUENCE ARE AS FOLLOWS: ROM AND PIPELINE REGISTER, 
SEQUENCER, INTERNAL BUSES, 2901 MICROPROCESSOR, AND, RAM. THIS 
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER, 
WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION 
MICR001AGN0STIC SEQUENCE TO BE COMPLETED). ANO THEN CHECKS THE 
CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
INDICATED BY SUBSYSTEM READY (SSR) AND NEEO BUFFER ADDRESS (NBA) 
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND A16 ANO 
OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0). IF THE 
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED 
LISTING THE EXPECTED DATA. ACTUAL DATA, MNO THE DISCREPANCIES. 
THE ERROR REPORT ANALYZES THE TSSR CONTENTS ANO DISCERNS AND 
REPORTS ONE OF THREE POSSIBILITIES i 

1. TSSR CONTENTS ARE AMBIGUOUS CANY OF BITS 11-14 ARE SET, 
OR STATES OF S3R AND SC BITS DO NOT CORRESPOND fO THE 
APPARENT ERROR COOE IN BITS 0-5) : INDICATES THAT THE 
TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
ERROR (EXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
REPLACE THE M7196. IF THE M7196 ITSELF IS BEING 
DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
ERROR ENA8LED IN ORDER TO PROBE FOR THE PROBLEM. 

2. SSR • 0, SC ■ AND THE ERROR COOE IN BITS 0-5 IS IN 
THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
COOE IS DECOOED AND THE APPROPRIATE DESCRIPTION GIVEN. 
INDICATES THAT A SERIOUS PROBLEM EXISTS. 

TEST 2j WRAP DATA - HIGH BYTE 

THIS TEST VERIFIES OPERATION OF: 

1. PART OF THE 11/21* BUS INTERFACE SECTION OF THE M7196 
MOOULE: PART OF THE INPUT FILE (T508 HIGH BYTE), PART 
OF THE OUTPUT FILE (TSSR HIGH BYTE ANO TSBA, BOTH 
BYTES). PART OF THE DC005 TRANSCEIVER CIRCUITS (ADDRFSS 
DECOOER, BDAL DRIVERS, HIGH BYTE OF INTERNAL DAL BUS 
DRIVERS), ANO BASIC PROGRAMMED I/O CONTROL SEQUENCES 
ANO LOGICi 

2, PART OF 2901 MICROPROCESSOR ELEMENTS (Q. REGISTER, 
REGISTER 0, ROTATE ANO NEGATE FUNCTIONS 

3. Y ANO SOURCE BUSESi 

4, BASIC MICROPROGRAM SEQUENCES* 



SEQ 0014 
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THE PROGRAM WRITES A TEST DATA BYTE INTO THE HIGH BYTE OF TSDB, 
WAITS TOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA ANO TSSrl . THE MOOULE IS FUNCTIONING CORRECTLY IF 
OATA WRITTEN APPEARS IN BOTH BYTES OF TSBA ANO THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
8 ANU 9, WHICH SHOULD CONTAIN BITS 8 ANO 9 OF THE DATA PATTERN 
WRITTEN. AN ERROR IS REPORTED ANO A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES (0-377 OCTAL). 

TEST 3i WRAP DATA - LOW BYTE 

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
ELEMENTS TESTED IN TEST 2, ANO ADDITIONALLY VERIFIES? 

1. LOW BYTE OF THE TSDB INPUT FILE REGISTER. 

2. LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DC005 
TRANSCEIVER CIRCUITS. 

3. BASIC FUNCTIONING OF PARTS OF THE RAM. 



THE PROGRAM WRUES A TEST DATA BYTE INTO THE LOW BYTE OF TSDB, 
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND TSSR. THE MOOULE IS FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
8 ANO 9. WHICH SHOULD CONTAIN BITS 8 ANO 9 OF THE DATA PATTERN 
WRITTEN. AN ERROR IS REPORTED ANO A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANOIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES (0-377 OCTAL). 

TEST 4? RAM TEST 

THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7196 
CAN PROPERLY STORE ANO READ BACK ALL DATA PATTERNS. ANO THAT 
EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.E., THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THE 
BYPROOUCT OF THESE TESTS . S A VERIFICATION OF TWO REGISTERS IN 
THE 2901 ANO THE CAPABLin OF THE 2901 TO CORRECTLY PERFORM AN 
ADD. 

TEST 5; SECOND INITIALIZATION TEST 

THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST 
01 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO 



SEQ 0015 
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SEQ 0016 



ANO THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED TO ZERO. 
THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF -TEST SEQUENCE 
(I.E., THAT IT IS Rr.ALLY BEING EXECUTED). FOR EACH OF TWO 
SUBTESTS CONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR 
INITIALIZING BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE 
IS PERFORMED; 

1. EACH RAM LOCATION ANO 2901 REGISTERS 10 ANO 11 ARE SET 
TO ALL l'S BY USING WRITES INTO THE TSDB REGISTER CLOW 
BYTE ANO MAINTENANCE MODE WORD WRITES). 

2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON 
THE TSSR DESCRIBED IN INITIALIZATION TEST 01 ARE 
PERFORMED. 

3, ♦l'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB, 
WHICH SHOULD CAUSE RAM LOCATION TO BE WRITTEN TO ALL 
l'S SINCE 2901 REGISTERS 10 ANO 11, SPECIFYING THE RAM 
ADDRESS, SHOULD BE 0. RAM LOCATION IS VERIFIED BY 
WRITING A WORD OF ZEROS INTO THE TSDB. THE RESULTING 
LOW BYTE OF TSBA SHOULD CONTAIN ALL l'S. 

4, THE ENTIRE RAM IS SCANNED. LOCATION SHOULD CONTAIN 
ALL l'S ANO THE REMAINING LOCATIONS, EXCEPT FOR THE 
MESSAGE BUFFER IMAGE AREA. SHOULD CONTAIN 0. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM 
OR A TIMING PROBLEM. 



TEST 6: COMMAND REJECT 

THIS TEST VERIFIES THAT ALL COMMANOS OTHER THAN WRITE 
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS 
(NBA) BIT BEING SET IN TSS3. AND THAT THE TSBA ANO TSSR 
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC 
COMMANO DECOOING AND DATI DMA HANOLING. THIS TEST CONTAINS TWO 
SUBTESTS; SUBTEST 1 SEQUENCES THROUGH ALL COMMANO WORDS (OTHER 
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COMMANOi SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
SETS THE IE BIT IN EACH COMMAND WORD AMD VERIFIES THAT AN 
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED. 

TEST 7; WRITE CHARACTERISTICS 

THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS 

-COMMAND. IT VERIFIES THAT THE COMMANO BLOCK AND CHARACTERISTICS 

DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 
AODRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER 
MESSAGE PACKET IS STORED, WHERE APPROPRIATE. THIS TEST OOFS N01 
-CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 
DATA BITS OPERATE PRO°ERLYj THE FUNCTIONING OF THESE BITS IS 
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VERIFIED IN SUBSEQUENT TESTS. ALL COMMANDS EXECUTED IN THIS 
TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO, SO NO 
INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE PROGRAM RUN* AT 
PROCESSOR PRIORITY 0, WITH THE INTERRUPT SERVICE ROUTINE *£T UP 
TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS, A 
PROBLEM EXISTS IN EITHER THE 11/21* BUS INTERFACE SECTION OR IN 
THE ROM OR PIPELINE, 

TEST 8; VOLUME CHECK 

THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD 
WITHIN THE M7196 ANO APPEARING IN XSTO, IS SET BY INITIALIZE AND 
CLEARED BY EXECUTING A WRITE CHARACTERISTIC S COMMAND WITH THE 
CVC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMANO WITH THE CVC BIT CLEAR DOES NOT m^ECT THE STATE Or THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON 
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS 
TEST, THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 

TEST 9; COMPLETION INTERRUPT 

THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT. 

THE SEQUENCES OF t ES T 7 ARE REPEATED. EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1). IT 
IS VERIFIED, WHERE ^ROPRIATE, THAT THE IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKE I IS SET ANO THAT A COMPLETION INTERRUPT IS 
GENERATED. FINALLY, A SEQUENCE OF TWO COMMANOS ARE ISSUED, THE 
FIRST WITH IE-1 AND THE SECOND WITH IE-O. IT IS VERIFIED THAT 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 
IE BIT IN XSTO IS 0. 

TEST 10: BASIC PACKET PROTOCOL 

THIS TEST VERIFIES BASIC OPERATION Of' THE MESSAGE BUFFER RELEASE 
COMMANO. THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD, 
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC, 



SEQ 0017 



TEST II; NON-TAPE MOTION COMMANDS 

THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
COMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 
-THE COMMANO RlNS TO COMPLETION ANO STORES A VALID 
MESSAGE PACKET. THE SECOND VERIFIES THAT NON ZERO 
VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT, 



K2 



USER DOCUMENTATION MACRO M1200 23 -MAR -84 09 5 44 PAGE 4-15 

SEQ 0018 

7,0 MAINTENANCE HISTORY 

REVISION A - MARCH 1982 

CVTSAAO -> CNTSAAO JAKI BERG 9-APR-1984 

CHANGES WERE MADE TO CVTSAAO TO PKu.'CE CNTSAAO FOR THE 
FALCON-PLUS PROJECT (SBC-11/210. CH. WES, MARKED BY 
" t JB REV A-0" ARE* 

- SET THE'OOT BREAK VECTOR (LOCATI (N 140) TO THE 
STARTING ADDRESS OF FALCON'S ODT RIM ( 170000 -OCTAL) . 

- LOWER THE GENERAL INTERRUPT PRIO !ITY FROM 7 TO 6. 

- CHANGE DEFAULT CSR ADDRESS FROM ,72540 TO 3.76000. 
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SEQ 0019 



3 






4 






10 






11 000000 






12 






13 






19 000000 






20 


002000 




21 002000 






002000 






22 






23 






24 






25 






26 






27 






28 






29 002000 






30 002000 






002000 






002000 


103 




002001 


116 




002002 


124 




002003 


123 




002004 


101 




002005 


000 




002006 


000 




0020^>7 


000 




OO201U 






002010 


101 




002011 






002011 


060 




002012 






002012 


000000 




002014 






002014 


001217 




002016 






002016 


045654 




002020 






002020 


046006 




002022 






002022 


002154 




002024 






002024 


002164 




002026 






002026 


046404 




002030 






002030 


000000 




002032 






002032 


000000 




002034 






002034 


000000 




002036 






002036 


000000 




002040 






ooaoAo 


002124 





.TITLE 


TSV2 - PROGRAM HEADER 


.SBTTL 


PROGRAM HEADER 


.MCALL 


SVC 


SVC 


l INI 


.ENABLE 


LC 


.NLIST 


BEX.CND 


.ENAbL 


ABS.AMA 


.-2000 




BGNMOD 


TSV2 



l INITIALIZE SUPERVISOR MACROS 



TSV2; ! 



I ♦♦ 



i THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
* -- 



LJNAME 



POINTER BGNSW,BGNSFT,BGNA>\BGNDU,BGNRPT 
HEADER CNTSA.A, 0,655. .0 

j DIAGNOSTIC NAME 





.ASCII 


/c/ 






.ASCII 


/N/ 






.ASCII 


/J/ 






.ASCII 


/S/ 






.ASCII 


/A/ 






.BYTE 









.BYTE 









.BYTE 







LIREV; ; 






{REVISION LEVEL 




.ASCII 


/A/ 




LIDEPO: 






JO 




'.ASCII 


/o/ 




L1UNIT: 






{NUMBER OF UNITS 




'.WORD 







LJTlMLi 






{LONGEST TEST TIME 




' .WORD 


655. 




LlriPCP: 






{POINTER TO H.W. QUES. 




'.WORD 


LIHARD 




L$SPCP: 






{POINTER TO S.W. QUES. 




' . WORD 


L$SOF*T 




LIHPTP: 






»PTR. TO DEF. H.W. PTABLE 




* , WORD 


LiHW 




LlSPTPj 






jPTR. TO S.W. PTABLE 




' . WORD 


LISU 




L$LADPj 


• 




jDlAG. END ADDRESS 




' . WORD 


L.ILAST 




L$STA: : 






{RESERVED FOR APT STATS 




.WORD 







L$CO: : 










.WORD 







L$DTYP : 


j 




{DIAGNOSTIC TYPE 




.WORD 







L$APT ; t 






jAPT EXPANSION 




.WORD 







LiaiRii 






t PTR % TO DISfWCH TABU 




.WORD 


L IDISPATCH 



H2 



TSV2 •• 


PROGRAM 


HEADER MACRO 


M1200 23-MAR-84 


09:44 


PAGE 7-1 


PROGRAM 


HEADER 












002042 




LIPRIO: 


. 






002042 


000000 




' . WORD 







002044 




LIFNVI: 


• 






002044 


000000 




* .WORD 







002046 




LSLXP1: 


» 






002046 


000000 




* .WORD 







002050 




LSMREV: 


< 






002050 


005 




.BYTE 


cjrevis: 




002051 


003 




.BYTE 


CJEDIT 




002052 




UEF: j 








002052 


000000 




.WORD 







002054 


000000 




.WORD 







002056 




LSSPC:: 








002056 


000000 




.WORD 







002060 




LSDEVPj 


» 






002060 


005576 




'.WORD 


LJDVTYP 




002062 




LiREPP: 


• 






002062 


022702 




.WORD 


L*RPT 




002064 




LSEXP4: 


♦ 






002064 


000000 




.WORD 







002066 




L$EXP5t 


• 






002066 


000000 




.WORD 







002070 




L$AUT-« 








002070 


022570 




.WORD 


L$AU 




002072 




LiDUTt: 








002072 


022466 




.WORD 


LIDU 




002074 




L$LUN: : 








002074 


000000 




.WORD 







002076 




LJOESP 


• 






002076 


003404 




.WORO 


LSDESC 




002100 




LtLOAO 


* 






002100 


104035 




EMT 


EILOAD 




002102 




LIETP: 








002102 


000000 




.WORD 







002104 




LIICP: 








002104 


021546 




.WORD 


LIINIT 




002106 




LSCCP: 








002106 


022654 




.WORD 


LfCLEAN 




002110 




L*ACP: 








002110 


022574 




.WORD 


I. $ AUTO 




002112 




LIPRT: 








002112 


0215^6 




.WORD 


I. iPROT 




002114 




LITEST 


. 






002114 


000000 




.WORD 







002116 




LiDLY- 








002116 


000000 




.WORD 







002120 




LIHXM& 








002120 


000000 




♦ WORD 






SEQ 0020 



jDIAGNOSTIC RUN PRIORITY 

jFLAGS DESCRIBE HOW IT WAS SETUP 

j EXPANSION WORD 

tSVC REV AND EDIT ft 
ON 

jDIAG. EVENT FLAGS 



j POINTER TO DEVICE TYPE LIST 
jPTR. TO REPORT CODE 



jPTR. TO ADD UNIT CODE 

|PTR. TO DROP UNIT CODE 

jLUN FOR EXERCISERS TO FILL 

iPOINTER TO DIAG. DESCRIPTION 

1 GENERATE SPECIAL AUTOLOAD EMT 

iPOINTER TO ERRTBL 

jPTR. TO INIT CODE 

jPTR. TO CLEAN-UP CODE 

iPTR. TO AUTO COOE 

jPTR, TO PROTECT TABLE 

i TEST NUMBER 

I DELAY COUNT 

jPTR* TO HXQK MEM 



31 
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seq ooai 



33 

34 

35 

36 

37 

38 

39 

40 002122 
002122 
002124 
002124 
002126 
002130 
002132 
002134 
002136 
002140 
002142 
002144 
002146 
002150 

41 



.SBTTL DISPATCH TABLE 

; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST 
} IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 



000013 

023464 
023704 
024402 
025074 
026430 
027534 
031004 
034372 
035276 
040412 
043514 



DISPATCH 11 


.WORD 


11 


L$DISPATCH:: 




.WORD 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T4 


.WORD 


T5 


.WORD 


T6 


.WORD 


T7 


.WORD 


T8 


. WORD 


T9 


.WORD 


T10 


.WORD 


TU 



J2 



TSV, 
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DEFAULT HARDWARE P- TABLE 



SEQ 0022 



4? 

44 

45 

46 

47 

48 

49 

50 002152 
002152 
002154 
002154 

51 

52 002154 

53 002156 

54 002160 

55 002162 
002162 



,SBTTL DEFAULT HARDWARE P~ TABLE 

I THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
i THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE, 

i - - 



000003 



176000 
000224 
000200 



L*HW: 
DFPTBLu 



BGNHW 
.WORD 



L 10000: 



.WORD 
, WORD 
.WORD 
ENDHW 



DF^TBL 
L10000-LJHW/2 



176000 

224 

PRI04 



{DEFAULT HARD-P-TABLE 



j 1ST (OF 2) REGISTERS 
, INTERRUPT VECTOR 
I INTERRUPT PRIORITY. 



I<2 
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SOFTWARE P- TABLE 



iEQ 0QH3 



57 

58 

59 

60 

61 

62 

63 002162 
002162 
002164 
002164 

64 

65 002164 

66 002166 
67 

68 

69 002170 

70 002172 

71 002174 
002174 

72 

73 002174 



.SBTTL SOFTWARE H-TABLE 

l ♦♦ 

j THE SOFTWARE P- TABLE CONTAINS THE VALUES OF THE PROGRAM 

i PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 

, -- 



000004 



OOOOGO 
000000 



000017 
000310 



BGNSW 
.WORO 

LiSW: : 

SFPTBL:: 


SFPTBL 
L 10001 


•L*SW/2 


TRANSTST: : 
NOITS:: 


.WORD 
.WORD 


i 
j 


LERRMAX: : 
GERRMAX: : 

ENOSW 
L 10001 j 


.WORD 
.WORD 


15. i 

aoo, i 



ENABLE TEST OF TRANSPORTS ) IF 

INHIBIT ITERATION OPTION. 

. . . ■ ITERATE. 

. . .NZ - INHIBIT ITERATE. 

LOCAL (PER TEST) ERROR LIMIT 

GLOBAL (PER UNIT) ERROR LIMIT 



ENDMOD 



L2 



TSV5 GLOB At AREAS 
SOFTWARE P- TABLE 



8 
13 
19 
20 

PI 
22 
23 
24 

25 
26 

27 
28 
29 
33 



002174 
002174 



002174 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000 too 

000040 
000020 
000010 
"000004 
000002 
000001 



000040 
000037 
000036 
000035 
00Q03A 
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SEQ 0024 



TSV3:: 



.TITLE TSV3 - GLOBAL AREAS 
, SBTTL GLOBAL EQUATES SECTION 



BGNMOO TSV3 



.SBTTL GLOBAL EQUATES SECTION 



{ THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
i ARE USED IN MORE THAN ONE TEST, 



j GET STANDARD EQUATES, 



EQUALS 

! BIT DiriNITIUNS 

BIT15-- 100000 
BIT14«» 40000 
BIT13-- 20000 
BIT12-- 10000 
BIT11-- 4000 
BIT10-- 2000 
B1T09-- 1000 
BIT08-- 400 
BIT07-- 200 
BIT06-- 100 
BIT05-- 40 
BIT04-- 20 
BIT03-- 10 
BIT02-- 4 
BIT01-* 2 
BIT00-- 1 

BIT9-- BIT09 

BIT8-- BIT08 

BIT7-- BIT07 

BIT6-- BIT06 

BIT5-- BIT05 

BIT4-- BIT04 

BIT3-- BIT03 

BIT2-- BIT02 

BIT1-- BITOi 

BITO-- BITOO 

i EVENT FLAG DEFINITIONS 

i EF32:EF17 RESERVED FQR SUPERVISOR 



TO PRO, RAM COMMUNICATION 



1 
EF 


START- 


32. 


FF 


RESTART-- 


31. 


EF 


.C0N1 INUE»» 


30. 


EF 


NEW-- 


29. 


EF 


>PWR*» 


2& * 


I 







BIT POSITION IN SECOND STATUS WORD 
(1000001 START COMMAND WAS ISSUED 

RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 
A NEW PASS HAS BEEN STARTED 
k FQWER-FAIL/PQWER-UP OCCURRED 



(040000) 
(020000) 
(010000) 
I (QQAQQO) 



M 



TSV3 - GLOBAL AREAS MACRO M1200 
GLOBAL EQUATES SECTION 
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SEQ 0025 



i 

i PRIORITY LEVEL DEFINITIONS 



34 

35 002174 



000340 
000300 
000240 
000200 
000140 
0001C0 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



000250 

177572 
177574 
177576 
172516 



PRI07-- 


340 




PRI06-- 


300 




PRI05-- 


240 




PRI04-- 


200 




PRI03-- 


140 




PRI02-- 


100 




PRI01-- 


40 




PRI0O-- 







i OPERATOR FLAG 1 


3ITS 


EVL-- 


4 




LOT-- 


10 




ADR-- 


20 




IDU-- 


40 




ISR-- 


100 




UAM»- 


200 




BOE-- 


400 




PNT-- 


1000 




PRT-- 


2000 




IXE-- 


4000 




IBE-- 


10000 




IER-- 


20000 




LOE-- 


40000 




HOE-- 


100000 






KT11 


• i 


.SBTTL 


MEMORY 


MANAGEMENT DEFINITIONS 


j*KTll 


VECTOR ADDRKSS 


MMVEC- 


250 




»*KT11 


STATUS REGISTER ADDRESSES 


SRO- 


177572 




SR1- 


177574 




SR2» 


177576 




SR3- 


172516 




.IF N6 






j*USER 


"I" PAGE 


DESCRIPTOR REGISTERS 


UIPDRO- 


177600 




UIPDR1- 


177602 




UIPDR2- 


177604 




UIPDR3- 


177606 




UIP0R4- 


177610 




UIPDR5- 


177612 




UIP0R6- 


177614 




UIPDR7- 


177616 




.IF NB 






j*USER 


"D" PAGE 


DESCRIPTOR REGISTQRS 


UOPORO- 


177620 




U0PDR1- 


177622 




U0PDR2- 


177624 




U0PDR3- 


177626 




UDP0R4- 


17 7630 




UDP0R5- 


177632 




UPPDR6* 


I7763A 





{DEFINE MEMORY MANAGEMENT REGISTERS 



N2 
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SEQ 0026 



UDPDR7- 177636 




,ENDC 




;*USER "I" PAGE 


ADDRESS REGISTERS 


UIPARC- 177640 




UIPAR1- 177642 




UIPAR2- 177644 




UIPAR3- 177646 




UIPAR4- 177650 




UIPAR5- 177652 




UIPAR6- 177654 




UIPAR7- 177656 




.IF NB 




}+USER "D" PAGE 


ADDRESS REGISTERS 


UDPARO- 177660 




U0PAR1- 17766? 




UDPAR2- 177664 




UDPAR*- 177666 




U0PAR4- 1/7670 




UDPAR5- 177672 




U0PAR6- 177674 




UDPAR7- 177676 




.ENDC 




.ENDC 




.IF NB 




t *SUf'ERVISOR "I' 


' PAGE DESCRIPTOR REGISTERS 


SIPDRO- 172200 




SIPDR1- 172202 




SIPDR2- 172204 




SIPDR3- 172206 




SIP0R4- 172210 




5IPDR5- 172212 




SIPDR6- 172214 




SIPDR7- 172216 




.IF NB 




I ♦SUPERVISOR "D* 


" PAGE DESCRIPTOR REGISTERS 


SOPDRO- 172220 




SDPDR1- 172222 




SDPDR2- 172224 




SUPDR3- 172226 




S0P0R4- 172230 




SDPDR5- 172232 




SDPDR6- 172234 




SDPDR/- 172236 




.ENOC 




j*SUPERVISOR "I 


" PAGE ADDRESS REGISTERS 


SIPARO- 172240 




SIPAR1- 172242 




SIPAR2- 172244 




SIPAP3- 172246 




SIPAR4- 172250 




SIPAR5- 172252 




SIPAR6- 172254 




SIPAR/- 172256 




.IF NB 




^SUPERVISOR "D 


" PAGE ADDRESS REGISTERS 


SDPARO- 172260 




SDPAR1- 172262 





B* 



O 
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SEQ 0027 



172300 
172302 
172304 
172306 
172310 
172312 
1/2314 
172316 



172340 
172342 
172344 
172346 

172350 

172352 
1/2354 
172356 



SDPAR2 

SDPAR3 

S0PAR4 

SDPAR5 

S0PAR6- 

SDPAR7* 

.ENOC 

ENOC 
I ^KERNEL 
KIPDRO- 
KIP0R1- 
KIP0R2* 
KIP0R3- 
KIP0R4- 
KIP0R5- 
KIP0R6- 
KIP0R7- 
.IF NB 
i*KERNEL 
KDPORO- 
K0P0R1* 
KDPDG2- 
KDP0R3- 
K0PW4- 
KDPW5» 
KDP0R6- 
KDP0R7- 
.PNDC 
i*KERNEL 
KIPARO- 
KIPAR1- 
KIPAR2* 
KIPAR3- 
KIPAR4- 
XIPAP5* 
KIPAR6- 
KirAR7- 

.IF NB 

j ♦KERNEL 

KDPARO- 

K0PAR1* 

KDPAR2* 

K0PAP3- 

KDPAR4- 

KDPAR5- 

K0PAR6- 

KDPAR7- 

.ENOC 



172264 
172266 
172270 
172272 
172274 
172276 



"I" PAGE DESCRIPTOR REGISTERS 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 

"D" PAGE DESCRIPTOR REGISTERS 
172320 
172322 
172324 
172326 
172330 
172332 
172334 
172336 

-I- PAGE AODRESS REGI5TER5 
172340 
172342 
172344 

172346 
172350 
172352 
172354 
172356 

"0" PAGE ADDRESS REGISTERS 
172360 
172362 
172364 
172366 
172370 
172372 
172374 
172376 



C6 
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SEQ 0028 



40 




41 




42 




45 




44 




45 




46 


000004 


4? 


000060 


48 


177560 


49 


177562 


50 


177520 


51 




52 




53 




54 




55 




56 


100OO0 


57 


040000 


58 


020000 


59 


010000 


60 


004000 


61 


002000 


e? 


001400 


65 


000200 


64 


000100 


65 


000060 


66 


000016 


6 7 




68 




69 




70 




71 




72 




7 5 




74 




75 




76 


100000 


77 


040000 


78 


020000 


79 


OlOOOO 


80 


004000 


81 


002000 


82 


001000 


85 


000400 


84 


000200 


85 


000100 


86 


000040 


87 


000020 


88 


0000 10 


89 


000004 


90 


000002 


91 


000001 


92 




S3 




04 




95 




96 





.SBTTL TSV05 REGISTER AND PACKET DEFINITIONS 



J 

l SOME GENERAL EQUATES, 

J 

ERRVEC-- 4 

TTIVEC-- 60 

TTICSR-- 177560 

TTIBFR-- 177562 

BOVPCR*- 177520 

iBIT DEFINITIONS FOR 



j POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
j INTERRUPT VECTOR FOR CONSOLE INPUT 
j BUS ADDRESS Of CONSOLE INPUT 
I CONSOLE INPUT DATA BUFFER 
I BDV11 PAGE CONTROL REGISTER 



TSSR REGISTER 



SC- 

BIE- 

SCE- 

RMR- 

NXM- 

NBA- 

HIADDR- 

SSR* 

OFL- 

FATERR- 

TERCLS- 



BIT15 iSPECIAL CONDITION 

BIT14 ,BUS INTERFACE *RROR 

BIT13 i SANITY CHECK ERROR 

BIT 12 i MODIFICATION REFUSED 

BITU jNONtXISTANT MEMORY ERROR 

BIT10 iNEED BUFFER ADDRESS 

B1T9JBIT8 iEXTENDED ADDRESS BITS 

BIT7 |SU6 SYSTEM READY 

BIT6 |OFF LINE BIT 

0IT4JBIT5 jFATAL TERMINATION ERROR CODES 

BIT3IBIT2JBIT1 i TERMINATION CODES 



BIT DEFINITIONS 
(XSTO) 



XSOTMK 
XSORLS 
XSOLET 
XSORLL 
XSOWLE 
XSONEF 

XSOILC 
XSOTLA 
XSOMOT 
XSOONL 
XSOIE- 
XSOVCK 
XSOPED 
XSOWLK 

xsobot 

XSOEOT 



I 



BIT15 

BIT14 

BIT15 

BIT12 

BIT11 

BIT10 

BIT9 

BIT8 

BIT7 

BIT6 
BIT5 
BIT4 
BIT3 

BIT2 

BIT1 
BITO 



FOR EXTEN0ED STATUS REGISTER 



I TAPE MARK DETECTEO 

iRECORD LENGTH SHORT 

iLOGICAL END OF TAPE 

iRECORD LENGTH LONG 

I WRITE LOCK ERROR 

jNON EXECUTABLE FUNCTION 

.ILLEGAL COMMANO 

I ILLEGAL AOORESS 

i TAPE IN H'JTION 

, TRANSPORT ON LINE 

, INTERRUPT ENABLE 

I VOLUME CHECK BIT 

, PHASE ENCODED DRIVE 

iWRITE LOCKED 

j BEGINNING OF TAPE 

I END OF TAPE 



jBIT DEFINITIONS FQR EXTENDED STATUS REGISTER 1 
i(XSTl) 



TSV3 - GLOBAL AREAS 
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TSV05 REGISTER AND PACKET DEFINITIONS 



D3 



SEQ 0029 



97 





98 


100000 




99 


040000 




100 


020000 




101 


017375 




10 2 


000400 




105 


000002 




104 






105 






106 






10? 






108 






109 


100000 




110 


040000 




111 


035400 




112 


002000 




113 


000200 




114 


000100 




115 


00007 7 




116 


000007 




117 






118 






119 






120 






123. 






122 


177400 




123 


000200 




124 


000100 




125 


000040 




126 


000020 




127 


000010 




128 


000006 




129 


000001 




130 






131 






132 






133 






134 






135 


100000 




136 


040000 




137 


020000 




138 


017400 




139 


000.377 




140 






141 






142 






145 






144 






145 






146 






147 






148 


000006 




"149 


Q00006 




150 






151 






IV 







15$ 





I • 

Xl.DLT 
XI. SPARE 
XI. COR 
Xl.MBZ 

Xl.RBP 

Xl.UNC * BIT1 



BIT15 jDATA LATE 

BIT14 tNOT USED 

B1T13 iCORRECTABLE DATA ERROR 

BITl2*BITllfBIT10*BIT9fBIT7*BIT6*BIT5*B T T4»BIT3*BIT2*BIT0 {ALWAYS 

BIT8 jREAD BUS PARITY ERROR 

I UNCORRECTABLE DATA OR HARD ERROR 



iBIT DEFINITIONS FOR EXTENDED STATUS RECI5TER 2 
i(XST2) 



X2.0PM 

X2.RCE 

X2. SPARE 

X2.UCF 

X2.EXTF 

X2.BUFE 

X2.REV 

X2.UNIT 



BIT15 jOPERATION IN PROGRESS (TAPE MOVING) 

BIT14 |RAM CHECKSUM ERROR 

BIT13fBIT12*BITU*BIT9*BIT8 iNOT USED BY TSV05 (ALWAYS-O) 
BIT10 jURITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
BIT 7 ,IF WRITE CHAR CMO THEN ■ EXTENDED FEATURES ENABLED 

BIT6 j IF WRITE CHAR CMO THEN » BUFFERING ENABLED 

000077 | IF WRITE CHAR CMD THEN • MICROCODE REVISION LEVEL 
BIT2*BIT1*BIT0 j IF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 



»BIT DEFINITIONS 
j(XST3) 



FOR EXTENDED STATUS REGISTER 3 



X3.M0E 
X 3. SPARE 

X3.0PI 
X3.REV 
X3.TRF 
X3.DCK 
X3.MBZ 
X3.RIB 

jBIi DEFINITIONS 
i(XST4) 



177400 
BIT7 
BIT6 
BITS 
BIT4 
BIT3 
BIT2.BIT1 
BITO 



iMICRO-DIAGNOSTIC ERROR CODE 
iNOT USED BY TSV05 
lOPERATION INCOMPLETE 
»RE VERSE 

j TRANSPORT RESPONSE FAILURE 
iDENSITY CHECK 
iNOT USED ALWAYS 
jREVERSE INTO BOT 



*> 



FOR EXTENDED STATUS REGISTER 4 



J - 

X4.H5P 

X4.RCE 

X4.T3M 

X4.MBZ 

X4 . WRC 



BIT15 jHIGH SPEED 

BIT14 jRETRY COUNT EXCEEDED 

BIT13 i TRANSPORT SPECIAL MODE 

BIT12»BIT11»BIT10»BIT9*BIT8 iNOT USED ALWAYS 

000377 jWRITE RETRY COUNT FIELD 



TERMINATION CODES (BIT 0-2) 



TSREJ 
UNREC' 



3*2 

6 



j COMMAND REJECTED 
I UNRECOVERABLE ERROR 



iDEVlLE REGISTER OFFSETS 



E3 
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SEQ 0030 



154 




155 




156 




157 


000000 


158 


000000 


159 


000001 


160 


000001 


161 


000002 


162 


000003 


165 




.\64 




165 




166 




167 


000003 


168 




169 




170 




171 




172 


000017 


173 


000013 


174 


000012 


175 


000011 


176 


000010 


177 


000006 


178 


000005 


179 


000004 


180 


000001 


181 




182 




183 




184 




165 


100000 


186 


040000 


187 


020000 


188 


010000 


189 


007400 


190 


000200 


191 


000140 


192 


000037 


193 




194 




195 




196 


000000 


197 


000400 


198 


001000 


199 


002000 


200 


002400 


201 




202 




203 




204 




205 


000167 


.206 


000200 


207 


000201 


208 


000210 


"209 


000215 


-iio 


000234 







l 
I - 

TSBA-- 

TSDB-- 

T5BAH-- ) 

TSDBH-- 1 

TSSP-- 2 

TSSRH-- 3 

I TSOB ADDRESS BIT DEFINITIONS 

- BITl^BITO iADDRESS BITS 17:16 ARE IN IjO 



jTSDB/TSBA REGISTER 

jTSDb/TSBA REGISTER HIGH BYTE 

tTSSR REGISTER 

iTSSR REGISTER HIGH BYTE 



A1716 



I * 

I COMMAND DEFINITIONS 



P.GETSTAT 
P.INIT 
P. CONTROL 
P. FORMAT 
P. POSITION 
P.WRTSUfl 
P. WRI^E 
P.WRTCHAR 
P. READ 



17 

13 

12 

11 

10 

6 

5 

4 

1 



»GET STATUS 

I INITIALIZE 

I CONTROL COMMANDS 

iFORMAT 

■POSITION 

jSUBSYSTEM WRITE 

tWRITE 

jWRITE CHARACTERISTICS 

iREAD 



j COMMAND 



PACKET HEADER WORD BIT DEFINITIONS 



P.ACK - BIT15 iBUFFER AVAIL FOR CONTROLLER 

P.CVC ■ BIT14 jCLEAR VOLUMF CHTCK 

P.OPP ■ BIT13 jREVERSE SEQUENCE OF DATA BITS 

P.SWB - BIT12 jSWAP BYTES IN MEMORY 

P. MODE - BITU5BIT10!BIT9!BIT8 jEXTENOED COMrlAND MODE FIELD 

P. IE • BIT7 i INTERRUPT ENABLE 

P.FMT-- BIT6JBIT5 jPACKET HEADER TYPE (ALWAYS-O) 

P.CMO -37 | MAJOR COMMAND FIELD 



i ♦ 



CONTROL COMMAND MODE CODES 



; - 



PC. RELEASE 

PC. REWIND 
PC.NOOP 
PC.IEREW 
PC. ERASE 



- 0*256. 

- 1*256. 
• 2*256. 
» 4*256. 

- 5*256. 



iRELEASE BUFFER 

jREWINO 

jNO-OP 

{REWIND IMMEDIATE INTERRUPT 

(SECURITY ERASE 



i CONTROLLER RAM DEFINITIONS 



RMCH8EG • 16 7 

RMCHENO " 200 

PMPKTBEG- 201 

RM&KTEND- 210 

RMMSGBCG- 215 

RMMSGEND* 234 



, CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
, CHARACTERISTICS 10 DATA ENO RAM ADDRESS 
iCOMMAND PACKET BEGIN RAM ADDRESS 
jCOMMAND PACKET ENO RAM ADDRESS 
jMESSACE BUFFER BEGIN RAM ADDRESS 
jMESSAGE BUFFER END RAM ADDRESS 



F3 
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SEQ 0031 



211 




212 




213 




214 




215 




216 




217 


000006 


218 


000010 


21S 


000012 


220 


000014 


221 


000016 


222 




223 




224 




225 




226 




227 




228 




229 




230 


000002 


231 


000004 


232 


000006 


233 




234 


000010 


235 




236 




237 




238 




239 


000000 


240 


000001 


?41 


000002 


42 


000004 


243 




244 




245 




246 




24 7 


000000 


248 


OOOOOl 


249 


000002 


250 


000003 


251 


000004 


252 


000005 


253 


000006 


254 


0OO007 


255 


000010 


256 


000011 


257 


000020 


258 


000021 


259 


0OO022 


260 


000023 


261 


000024 


262 




263 




264 




265 




266 


000200 


26? 


000100 







REGISTER DEFINITIONS IN THE MESSAGE BUFFER 



XSTO-- 


6 


XST1-- 


8. 


XST2-- 


10. 


XST3-- 


12. 


XST4-- 


14. 



{EXTENDED 
I EXTENDED 
^EXTENDED 
j EXTENDED 
jEXTENDED 



STATUS 
STATUS 
STATUS 
STATUS 
STATUS 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



(WORD 
(WORD 
(WORD 
(WORD 
(WORD 



4) 
5) 
6) 

7) 
8) 



; ♦ 



I OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW 


2 




lLOW ORDER CHARACTERISTIC DATA POINTER 




PKHI 


4 




iHIGH ORDER CHARACTERISTIC DATA POINTER 




PKBCNT - 


6 




1 NUMBER OF BYTES IN DATA PACKET 




EXBCNT-10 




I NUMBER OF BYTES IN EXTENDED DATA PACKET 




JOATA PACKET OFFSETS FOR WRITE 


SUBSYTEM COMMAND 




BSELO 







iBYTE 




BSEL1 


1 




jBYTE 1 




SEL2 


• 2 




j WORD 2 




SELDATA - 


• 4 




iWORD 3 




j BSELO SELECT CODES ^OR 


WRITE 


SUBSYSTEM COMMAND 




PW.NOP 


■ 




j NO -OP 




PW. RDRAM 


' 1 




jREAD RAM 




PU.WTRAM 


• 2 




jWRITE RAM 




PW.RFIFO 


■ 3 




,READ FIFO 




PW,WFIFO 


• 4 




jWRITE FIFO 




PW.RDSTAT 


• 5 




jREAO STATUS 




PU.UCTl 


• 6 




lUHITE TAPE CONTROL 




PW.WFMT 


• 7 




iWRITE TAPE FORMAT 




PW.WMISC 


• 10 




j WRITE MISCELLANEOUS 




PU.WNPR 


• 11 




iWRITE NPR CONTROL 




PW.D22 


• 20 




iDO MICROTEST 22 




PW.D11 


• 21 




iDO MICROTEST 11 




PW.D13 


• 22 




iDO MICROTEST 13 




PW.N01311 


■ 23 




jDISABLE MICROTEST 11 AND 13 




PW.RDEXT 


- 24 




,READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL 


TRANSPORTS 


jBSELl CODES FOR 


WRITE 


TAPE CONTROL 




WC.IFAD 


• BIT7 




jIFAD - FORMATTER ADDRESS 




WC.IOTAD 


- BIT6 




jITADO - TRANSPORT ADDRESS BIT 





G3 
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WC.I1TAD - BIT5 

WC.I5RESV - BIT4 

WC.IREW - BITS 

WC.IRWU - BIT2 

WC.IFEN - BIT1 

WC.IGO - BITO 

jBSELl CODES FOR WRITE FORMAT 



SEQ 0032 



268 


000040 


269 


000020 


270 


000010 


271 


000004 


272 


000002 


273 


000001 


27-1 




275 




276 




277 




278 


000200 


279 


000100 


280 


000040 


281 


000020 


282 


000010 


283 


000004 


284 


000002 


285 


000001 


286 




287 




288 




289 




290 




291 


000200 


292 


000020 


293 


000010 


294 


000006 


295 


000001 


296 




297 




298 




299 


000000 


300 


000002 


301 


000004 


302 


000006 


303 




304 




305 




306 


000200 


307 


000100 


308 


000040 


309 


000020 


310 




311 




312 




313 




314 


000200 


315 


000100 


316 


000040 


317 


000020 


318 


000010 


319 


000004 


320 


000003 


321 


100000 


322 


040000 


323 


020000 


324 


010000 



iITAOl 

{IRE5V5 

t IREW 

jIRWU 

lIFEN 

I GO 



TRANSPORT ADDRESS BIT 1 

RESERVED 05 

REWIND 

REWIND AND UNLOAD 

FORMATTER ENABLE 



WF.IHISP 

WF.IWRT 

WF.IREV 

WF.IWFM 

WF.IEDIT 

WF.IERASE 

WF.I3RESV 

WF.I4RESV 



- BIT7 

- BIT6 

- BIT5 

- BIT4 

- BIT3 
• BIT2 

- BIT! 
« BITO 



{IHISP 


- HIGH SPEED 


»IWRT 


- WRITE 


iIREV 


- REVERSE 


iIWFM 


- WRITE FILE MARK 


{IEDIT 


- EDIT 


i IERASE 


- ERASE 


IIRESV3 


- RESERVED 03 


{IRESV4 


- RESERVED 04 



jBSELl CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS, EXT 


- BIT7 


MS.RSFIFO 


- BIT4 


MS.RSTAPE 


• BIT3 


MS. ATTN 


- BIT2IBIT1 


MS.RSD 


- BITO 



l * 



1 - 



MS. ATTN SUBCODES 

MSA. NOP - 0*2 

MSA, VOL • 1*2 

MSA.NRAM* 2*2 

MSA.FRAM- 3*2 



{INVERT SENSE OF EXTENDED FEATURES SWITCH 

{RESET FIFO AND INPUT PARITY ERRORR 

t RESET TAPE STATUS IN 2 FLIP-FLOPS 

I ATTENTION TRIGGER FIELO 

{RESET TIMER A,B THEN DELAY TIMES IN SEL2 



jNO-OP (NOTHING TRIGGERED) 
{SIMULATE ON-LINE/OFF-LINE TRANSITION 
{FORCE NON-FATAL RAM ERROR (FORCES ERRCODE 
{FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



54) 



} WRITE SUBSYSTEM WRITE NPR BSELl BIT DEFINITIONS 



NP.IR - BIT7 

NP.OUT • BIT6 

NP.LOOP - BIT5 

NP.WRP - BIT4 

! READ STATUS MESSAGE BUFFER BIT DEFINITIONS 



{INTERRUPT REO'tF.ST (0-1 TRANSITION) 

{TAPE DATA DIRECTION OUT (0- IN) 

{ENABLE TRANSPORT LOOPBACK 

{WRITE CORRECT PARITY (SET«0 TO WRITE WRONG) 



S2.DIM 


• BIT7 


WORD 09 BYTE 


2 DATA IN MISS 




S2.ILW 


• BIT6 




ILW H 




S2.0UTRDY 


• BIT5 




OUT RDY H 




S2.INRDY 


■ BIT4 




IN RDY H 




S2.ATIMR 


■ BIT3 




TIMER A FLAG 


H 


S2.BTIMR 


• BIT2 




TIMER B FLAG 


H 


-,2.UNDEF 


• BITi.BITO 


(UNDEFINED) 






Sl.PARIN 


• 8IT15 


WORD 08 BYTE 


1 PARIN H 




S1.I2RESV 


■ BIT14 




IRESV2 




S1.I1RESV 


• BIU3 




IRESV1 




Sl.IEOT 


• BIT12 




IEOT L 
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TSV05 REGISTER AND PACKET DEFINITIONS 



325 


004000 


326 


002000 


327 


001000 


328 


000400 


329 


000200 


330 


000100 


331 


000040 


332 


000020 


333 


000010 


334 


000004 


335 


000002 


336 


000001 


337 




338 









Mo 
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Si.IIOENT 


- BIT11 




IIDENT H 


Sl.ICER 


■ BIT10 




ICER H 


Sl.IFMK 


- BIT9 




IFMK H 


Sl.IHER 


- BIT8 




IHER H 


SO.ISPEEO 


- BIT7 




WORD 08 BYTE ISPEED H 


SO.IROY 


- BIT6 




IRDY L 


50.I0NL 


- BIT5 




IONL L 


SO.ILDP 


■ BIT4 




ILDP L 


SO.IOBY 


- BIT3 




IDBY L 


SO.IRUO 


- BIT2 




IRUD L 


SO.IFBY 


- BIT1 




IFBY L 


SO.IFPT 


■ BITO 




IFPT L 



SEQ 0033 



13 
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SPECIAL MACROS AND OPDEFS. 

341 

342 

343 

344 

345 

346 

34 7 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

3 78 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

395 

394 

395 

396 



SEQ 0034 



jREAO TSSR 

iIS FORCER SET? (LEAVE C BIT ALONE) 
iBR IF YES 



.SBTTL SPECIAL MACROS ANO OPDEFS, 



i SAVE GENERAL REGS 1 TO 5 
j - 

.MACRO SAVREG 
JSR R5.REGSAV 
.ENOM 

j MACRO TO FORCE AN ERROR 

I - 

.MACRO FORCERROR TAG,NOTSSR 

.NLIST 

.IIF NOF LISTALL, . NLIST 

.LIST 

.IF B NOTSSR 

MOV TSSR(RS),R1 
,ENOC 

MOV FORCER, FORCER 

BNE TAG 
.NLIST 

.IIF NOF LISTALL, .LIST 
.LIST 
.ENOM 

i MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

, WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

j SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

i FORCER TO 177777 

i TO FORCE ERRORS ANO ITERATIONS SET FORCER TO 1. 

.MACRO FORCEXIT TAG 

.NLIST 

.IIF NDF LISTALL, .NLIST 

.LIST 

MOV FORCER, TORCER » IS FORCER NEGATIVE? 

BMI TAG iBR IF YES 

.NLIST 

.IIF NOF LISTALL, .LIST 
.LIST 
.ENOM 

i MACRO TO INCREMENT ERROR COUNTS 

.MACRO NEXT.ERRNO 

.NLIST 

I I I. IIF NOF LISTALL, .NLIST 

ERRNO-ERRNO*! 
I j i. IIF NDF LISTALL, .LIST 
.LIST 
.ENOM 

1 * 



J 



5 
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SPECIAL MACROS AND OPDEFS 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 000000 

408 

409 

410 

411 

41? 

413 

414 

415 002174 000000 

416 

417 

418 

419 

420 



SEQ 0035 



j MACRO TO PERFORM XOR 



.MACRO 


XOR A,B 


MOV 


A.-(SP) 


BIC 


B.CSP) 


BIC 


A # B 


BIS 


(SP)*,B 


.ENDM 




EN-0 




.SBTTL 


FORCER - F 



i INITIALIZE ERROR NUMBER 
- FORCE ERROR FLAG 



; THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
i TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



FORCER i a 



i FORCE TYPE ALL HARD ERRORS ( THE ONES CALLED 

1 - BY THE MACRO "IFERROR"). AN ERROR NEED i\9T - 
t - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 



I<3 



TSV3 - GLOBAL AREAS 
GLOBAL DATA SF.CTION 



MACRO M1200 23-MAR-84 09:44 PAGE 16 



SEQ 0036 



422 






423 






424 






425 






426 






42/ 






428 






429 






430 






431 






432 






433 


002176 


000000 


434 


002200 


000000 


435 


002202 


000000 


436 


002204 


000000 


437 


002206 


000224 


438 


002210 


000200 


439 


002212 


000000 


440 


002214 


000000 


441 


002216 


000000 


442 


002220 


000000 


443 


002222 


oooooo 


444 


002224 


000000 


445 


002226 


oooooo 


446 


002230 


oooooo 


447 


002232 


oooooo 


448 


002234 


oooooo 


449 


002236 


oooooo 


450 


002240 




451 


002300 


oooooo 


452 


002302 


oooooo 


453 


002304 


oooooo 


454 


002306 


oooooo 


455 


002310 


oooooo 


456 


002312 


oooooo 


457 


002314 


oooooo 


458 


002316 


00Q000 


459 


C02320 




460 


002464 




461 


002630 





.SBTTL GLOBAL DATA S'cCTION 

Ithe GL0QAL DATA SECTION CONTAINS DATA THAT ARE USED 
{IN MORE THAN ONE TEST. 
I - - 

iTHE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
{SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 

t 



EPRTSW:: 

UNITN; : 

QVP:: 

CSRADDR: 

IVEC: , 

IPRI: : 

TSTCNT: 

LOOPCNf 

OEVCNT; 

FATFLG: 

INTRECV 

EXTFEA: 

8ENBSW: 

EXPO: 

RECV: 

ERRHI 

ERRLO 

RAMDATA;: 

RAMSIZ:: 

RCVHIADD: 

RCVLOADD: 

COUNT : : 

DATA: : 

TSTFLAG:: 

TSTPTR 

PRMNO: 

EXPMSG 

RECMSG 

TMPBFR 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKW 
.WORD 
.WORD 
.WORD 
.iJORD 
.WORD 
. WORD 
.WORD 
.WORD 
.BLKB 
.BLKB 
.BLKB 







224 
PRI04 












16. 









100. 
100. 
80. 



PRINT SWITCH 

UNIT * Ui^OER TEST. 

QUICK VERIFY FLAG. 

ADDRESS OF CSR FOR CURRENT DEVICE 

INTERRUPT VECTOR 

INTERRUPT PRIORITY. 

NUM8ER OF TESTS RUN IN THIS PASS 

REMAINING ITERATION COUNT <" 0R TEST 

NUMBER OF DEVICE UNDER TEST 

SET IF FATAL ERROR IS DETECTED IN TEST 

SET IF TAPE INTERRUPT WAS RECEIVED 

EXTENDED FEATURES SOFTWARE SW 0*OrF,l-ON 

BUFFER ENABLE SWITCH SW 0-OFF 5 l-ON 

EXPECTEO RAM DATA FOR PRAMPKT ROUTINE 

RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

HIGH AODRESS MEMORY ERROP 

LOW ADDRESS MEMORY ERROR 

DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

RAM DATA SIZE FOR PRAMPKT ROUTINE 

RECEIVED BUFFER HIGH APDRESS 

RECEIVED B»JFFER LOW ADDRESS 

TEST COUNT PATTERN 

TEST DATA 

TEST FLAG WORD 

TSTBLK POINTER 

PRINT ROUTINE TEMP 

EXPECTED MESSAGE BUFFER DATA 

RECEIVED MESSAGE BUFFER DATA 

TEMPORARY STORAGE FOR PRINT 



L 



3 
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TSTBLK 



TEST DATA TABLE 



SEQ 0037 



463 






464 






465 






466 






46 7 






468 






469 






4 70 






471 






4 72 






473 






474 






475 






476 






477 






478 






479 


002750 




480 


002750 


000000 


481 


002752 


177777 


482 


002754 


000001 


483 


002756 


000002 


484 


002760 


000004 


485 


002762 


000010 


486 


002764 


000020 


487 


002766 


000040 


488 


002770 


000100 


489 


002772 


000200 


490 


002774 


000400 


491 


002776 


001000 


492 


003000 


002000 


493 


003002 


0C4000 


494 


003004 


010000 


495 


003006 


020000 


496 


003010 


040000 


497 


003012 


100000 


498 


003014 


177776 


499 


003016 


177'. 75 


500 


003020 


177773 


501 


003022 


177767 


502 


003024 


177737 


503 


003026 


177677 


504 


003030 


177577 


505 


003032 


177377 


506 


003034 


17677 7 


507 


003036 


175777 


508 


003040 


173777 


509 


005042 


1677/7 


510 


003044 


157777 


511 


003046 


1377/7 


512 


003050 


077777 


513 


003052 


125252 


514 


003054 


052525 


515 




QQ3Q56 



.SBTTL TSTBLK 



TEST DATA TABLE 



THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS} 

ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



i ALL ZEROS 

tALL ONES 

j DATA FOR WALKING ONES 



TSTBLK: t 




.WORD 





.WORD 


177777 


.WORD 


BITO 


.WORD 


BIT1 


.WORD 


BIT2 


.WORD 


BIT3 


.WORD 


BIT4 


.WORD 


BIT5 


.WORD 


BIT6 


.WORD 


BIT7 


.WORD 


BIT8 


.WORD 


BIT9 


.WORD 


BIT10 


.WORD 


BITl- 


.WORD 


BIT12 


.WORD 


BIT13 


.WORD 


BIT14 


.WORD 


BIT15 


.WORD 


♦CBITO 


.WORD 


tCBITl 


.WORD 


tCBIT2 


. WORD 


tCBIT3 


.WORD 


tCBIT5 


.WORD 


♦CBIT6 


.WORD 


tCBIT7 


.WORD 


tCBITB 


.WORD 


tCBIT9 


.WORD 


tCBITIO 


.WORD 


tCBITll 


.WORD 


tCBIT12 


.WORD 


tC3ITl3 


.WORD 


tCBIV14 


.WORD 


tCBITIS 


.WORD 


125252 


.WQRO 


052525 


TBLfcND". 





I DATA FOR WALKING ZEROS 



l ALTERNATING ONES, ZEROS 

{ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 



M3 
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SEQ 0038 



517 






518 






519 






520 






521 


003056 


000000 100000 


522 


003066 


000000 000000 


523 






524 






525 






526 


003106 


000000 


527 






528 


003110 


000000 


529 






530 


003112 


000000 


531 


003114 


000000 


532 


003116 


000000 


533 


003120 


000000 


534 


003122 


000000 


535 


003124 


000000 


536 


003126 


000000 


537 






538 






539 


003130 


000000 


540 


003132 


000000 


541 


003134 


000000 


542 


003136 


000000 


543 


003140 


000000 


544 


003142 


000000 


545 


003144 


000000 


546 


003146 


002000 


54 7 


003150 


000000 


548 


003152 


000000 


549 


003154 


000000 


550 


003156 


000000 


551 


003160 




552 


003160 


000000 


553 


003162 


000000 


554 


003164 


000000 


555 


003166 


000000 


556 


003170 


177777 


557 


003172 




558 






559 






560 






561 






562 






563 






564 






565 






566 






567 


C03172 




568 


003372 


000000 


569 






570 


003374 


oooooq 



.SBTTL GLOBAL ENVIRONMENT STORAGE 

1 STORAGE FOR DEVICE REGISTERS 

000000 DUMMY: 0,100000.0.0 {DUMMY DEVICE REGISTERS... 
000000 0,0,0,0,0,0,0,0 

j... FOR MULTI-UNIT CHECKOUT. 



DUFLG:: 

NODEV : : 

TEMPI:: 

TEMP2; ; 

XXCOMM: 

FREE:: 

FRESIZ: 

FREEHI: 

KTFLG:: 



.WORD 
.WORD 



WORD 



KTENABLE: j 

NXMFLC 

NXMLO 

NXMHI 

T23A: 

T23B: 

T3BFLG: 

PST32W: 

SIFLAG: 

BAOOAT: 

GDDAT:: 

LOOPFL : : 

CTAB:: 

CTAtt-'M 



CTABE. « 

: ERROR SW. 



.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 

WOR r ' 



























2000 
















su 



i*C 





100' )00 
10X<XX 
160- 

160ov : 

14XXXX 



ERTABL; 
ERTABE: 



U.* .E CI W 



i ,,- • 

"f 
vnI » 
ONIT 

■M7T 

64> 




j "DROPPED UNIT" FLAG. 
{INHIBITS CODE IN "CLEAN-UP". 
{FLAG TO SAY NO DEVICE. 

{SOME TEMP LOCATIONS. 

jXXDP* COMM BLOCK POINTER, 
j 1ST FREE MEMORY ADDRESS... 
j. . .AND SIZE CIN WORDS). 
jLAST WORD IN FREE SPACE 

iKTll, MEM AVAIL FLAG - 

}- .WORD - <24K OR NO KT - 

;- HZ » >24K AND KT. 

j SET BY TEST ROUTINES TO FLAG >28K UhDcF; Tfc'ST 

I SET IF WE CAN TEST CLEARED OTHERWISE 

iNXM LO ADDRESS BITS 

}NXM HI ADDRESS BITS FOR DAL'S 16-21 

{11/23A FLAG 

■11/23B FLAG 

j TEST 3B FLAG to 

j32W BLOCK ADDRESS FOR 32K START 

{ACTUAL DATA 
{EXPECTED DATA 

{CONFIGURATION TABLES, 
{CONFIG '-^RK. 



{END OF MEM TABLE. 

IP ;-Ert '..!*"• T). 64 UNITS MAX: 

QT TES'EU 
.. i INE, N~ ERRORS 
-'^i.TNE , . 1UNTERED XX.; ' ERRORS 

v.. '--^';. -L-.. ' XISTENT V-ViLP. REGISTER 
D& ^ . ii I'.v t AT ART 

DROPPED, w.. ^iJNT-.' . . -0<X ER r/ 'Ri 



.BLKW 
.WORD 



SKIPTt .WORD 



il«SKIP SUtoUm <* f , SKIP OF SUBTEST 



N3 
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r>7? 

573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
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SEQ 0039 



612 
613 
614 
6,5 
6i6 
617 

618 
619 



O03 7 ,76 
003376 
003376 



586 

588 

589 

590 

591 003404 
003404 
003404 



620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
6 34 
635 
636 

63 7 
658 
639 
640 
641 
64^ 

64 3 



0034 76 
003516 
003536 
003541 
003545 
003551 
003555 
003561 
003565 
0035^2 
003577 
003603 
003607 
003614 
003621 
003626 
003633 
00364C 

003646 
003 701 
003/34 
0037/5 
004014 
004054 



124 



052 



003536 
003577 
123 
102 
123 
122 
116 
116 
102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
U4 5 
04 5 
045 



123 



052 



003541 
003603 
103 
111 
103 
115 
130 
102 
111 
111 
123 
106 
111 
111 
111 

111 
111 

123 

12? 
040 
101 
101 
101 



126 



052 



003545 
003607 
000 
105 
105 
122 
115 
101 
124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
U40 
040 



.SBTTL GLOBAL TEXT MESSAGES 



♦ ♦ 



; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
j MORE THAN ONE TEST, 



{NAMES OF DEVICES SUPPORTED 
J 

DEVTYP <TSV05> 
L$DVTYP:: 

.ASCIZ *TSV05* 
.EVEN 

iTEST DESCRIPTION 

i - 

DESCRIPT <**** TSV05 LOGIC DIAGNOSTIC - REPLACE M7.196 IF F2R0R ****> 
L$DESC:j 

.ASCIZ / + + + + TSV05 LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR + + * + / 

.EVEN 



»BIT TO ASCII 

» - 

TSSRBIT:: 



AVERSION FOR TSSR REGISTER 



1$ 
2% 
3$ 
4$ 

5$ 
6$ 
7$ 
8$ 

9$ 
10* 
11$ 
12$ 

13$ 
14$ 
15$ 
16$ 



SFIF.RR 

SFHERR 
NXR; 

NXRX; 

TSSXt 



.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 



1$, 2$, 3$. 4$. 5$, 6$, 7$. 8$ 

9$, 10$, 11$, 12 $.13$ ,14 $.15 $.16$ 



WORD 

WORD 

sc 

BIE* 

SCE' 
RMR' 
NXM' 
NBA' 
BIT9' 

BITS' 
3SR' 
OFL' 
BIT5' 

BIT4' 
BITS' 

BIT2' 

Bin* 

BITO' 



'TSSR ERROR AFTER SOFT INIT' 

'TSSR ERROR AFTER BUS RESET' 

/ NON-EXISTANT DEVICE REGISTER/ 

/*A ADDRESS: *06/ 

/#A TSBA.TSSR EXP'D: *06#A,*U6*N/ 

/*A TSBA.TSSR REC'Di *0b*A t *06/ 



B4 



TSV3 



- GL06AI AREAS 
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IAL TEXT MESSAGES 










644 004113 


045 


116 


045 


FUSI: 


.ASCII 


645 004117 


040 


040 


125 


USI: 


.ASCIZ 


646 004146 


040 


040 


111 


NSZi 


.ASCIZ 


647 0O4211 


045 


116 


045 


FNOINTRj 


i 
i 


648 004215 


040 


040 


116 


NOINTRj 


.ASCIZ 


649 004252 


040 


040 


111 


IFAULTi 


.ASCIZ 


650 004274 


045 


V01 


040 


INTXj 


.ASCIZ 


651 004331 


040 


040 


042 


NOINITi 


.ASCIZ 


652 0O4403 


040 


040 


042 


NSINITi 


.ASCIZ 


653 004453 


040 


040 


042 


BMINIT: 


.ASCIZ 


654 












655 004523 


000 






NULi 


.ASCIZ 


656 0O4524 


045 


116 


000 


NULCR: 


.ASCIZ 


657 004527 


045 


101 


040 


EXPGOTj 


.ASCIZ 


656 004563 


045 


116 


045 


EXPGT2? 


, ASCIZ 


659 004637 


045 


101 


040 


DUAD12: 


.ASCIZ 


660 004 741 


122 


101 


115 


PKTRAMj : 


> 


661 005007 


040 


040 


103 


SCMEi 


.ASCIZ 


662 005052 


127 


122 


111 


WRTMSG: 


.ASCIZ 


663 005107 


124 


123 


123 


WRTERR: 


.ASCIZ 


664 005202 


124 


123 


123 


RDERR: 


.ASCIZ 


665 005274 


106 


101 


124 


SCHERRj 


.ASCIZ 


666 005366 


105 


122 


122 


RE TERR: 


.ASCIZ 


66 7 005454 


045 


116 


045 


NOMEM: 


.ASCIZ 


668 005550 


045 


116 


045 


M8166: 


.ASCIZ 


669 005641 


045 


116 


045 


M&ia9j 


.ASCIZ 


6 70 










.EVEN 


671 












6 72 












* /3 
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SEQ 0040 



/*N#A/ 

/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 

ASCII /fltNtfA/ 
/ NO INTERRUPT WAS GENERATED/ 
/ INTERRUPT FAULT/ 
/*A CPU PC: *06*A TSBAj #06/ 
/ "BUS INIT" DIDN'T INITIALIZE CONTROLLER/ 
/ "SOFT-INIT" DION'T INITIALIZE THE DPU/ 
/ "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/#N/ 

/#A EXP'D: #06#A, REC'D: #06/ 

/#N#A EXP'D: *06*A, #06*N*A REC'Ot *0#A, #06/ 

/#A REG(W) WRITTEN TO: *06*A REG(R) READ: EXP'D: #06#A, REC'D: #06/ 

.ASCIZ 'RAM Contents Ho Not Match Packet 5«nt' 

/ CONFIG DC€SN'T MATCH MFG. MASTER/ 

•WRITE CHARACTERISTICS Fallad' 

'TSSR Incorrect Aftar WRITE Cowwtd, f^ora Bit* Sat Than SSR 

'TSSR Incorract Aftar READ Command. Mora Bita Sat Than SSR' 

•FATAL ERROR IN SUBTEST - CHECK TAPE .CABLES. TRANSPORT etc.' 

'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED* 

>#N*A ***** NO NXM ADDRESS- -CANNOT TEST NXM TIMEOUT. *****«N* 

'#N#A *♦♦•♦*♦♦*♦♦♦.*♦♦♦ 11/23A SYSTEM *******«**********N' 

'llNUA ***************** li/23B SYF T EM ********>*****.*4+#N' 



C4 
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GL08AI ERROR REPORT SECTION 



675 

6/6 

6 77 

6 /a 

6 79 
680 
681 
682 
68 3 



684 



685 
686 



68 7 
688 
689 
690 
691 
69? 
693 
694 
695 
696 
697 



0057 5? 
00573? 
00573? 
00573? 
005736 
005/4? 
005746 
005 750 
00575? 
005756 
00576? 
00576? 
00576? 



013746 
01?746 
01?746 
010600 
104415 
06?706 
004737 



104423 



698 



005764 
005766 
005770 
0057 7? 
0057 76 
005 7 76 
00600? 
006O06 
006010 
00601? 
006016 



005 727 
000000 
00140? 
004777 

012746 
012746 
010600 
104415 
062 706 
000207 



003110 
003773 
000002 



000006 
005764 



177770 

004524 

000001 



000004 



SEQ 0041 



♦SBTTL GLOBAL ERROR REPORT SECTION 



THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

CALLS THAT ARE USED IN MORE THAN ONE TEST. 

ASCII TEXT STRINGS ANF FOUND IN THE GLOBAL TEXT SECTION. 



NXRERR; 



BGNMSG NXRERR 



L 10002; 



PRINTX 


*NXRX,NODEV 


MOV 


NOOEV>-(SP) 


MOV 


*NXRX,-(SP) 


MOV 


#2 # ~CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


AOD 


♦6.SP 


JSR 


PC, EXTEND 


ENOMSG 





jNON-EXISTANT DEVICE REGISTER, 
jNODEV - NEXM ADDRESS, 



j PRINT EXTENSION IF REQUIRED. 



TRAP 



CIMSG 



I THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
i TO ANY OF THE ABOV ERROR SIGNATURES. 



I - NO EXTENSION. 



EXTENOi 


TST 


(PC)* 


EXTA; 









BEQ 


11 




JSR 


pc.aexTA 


Hi 


PRINTX 


♦NULCR 




MOV 


♦NULCR.-CSP) 




MOV 


•i. -(SP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


*4 , SP 




RTS 


PC 



I APPEND EXTENSION TEXT, 
I PRINT A BLANK LINE 



D4 
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PRITSSR * PRINT TSSR CONTENTS 



SEQ 0042 



701 








70 L > 








703 








704 








70S 








70t 








707 








708 








70V 








710 








711 








712 








715 








714 








71S 








716 








V 1 .* 








? i e> 








7 it* 


t;?6020 






7.V 


00*^020 






j t 


v 06024 


010104 




722 


(-060* S 








^0<O26 


010446 






006030 


012746 


0C6411 




006034 


012746 


000002 




OO6O40 


010600 






0060*12 


104414 






OOfo044 


062706 


000006 


"*?M 


OO6050 


010400 




V "*A 


OOt>052 


004737 


016034 


■ ' ' < ••", 


006056 


103410 




"'So 


CO6060 








»'K)6060 


012*46 


006631 




006064 


012V-;6 


000001 




0O6070 


0106^K) 






006072 


104413 






0O6074 


062706 


000004 


* * * " 


006100 


010403 




ive 


006102 


042703 


001476 


7 2^ 


006106 


001<»54 




*"50 


006110 


012702 


002630 


"Ml 


006U4 


012701 


003476 


7X2 


006120 


005703 




7*3 


006122 


001415 




754 


006124 


000241 




7 35 


006126 


006103 




7 56 


0O6130 


103006 




M7 


006132 


011100 




736 


006154 


112022 




739 


006156 


001376 




,■'40 


006140 


112762 


000054 


741 


006146 


005721 




742 


006150 


C00763 




74 5 


006152 


1050*2 




744 


006154 








O06154 


012746 


0026 30 




006160 


012746 


QQ66Q2 



.SBTTL PRITSSR - PRINT TSSR CONTENTS 

♦ 

ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OP 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS i 

Rl CONTENTS OF TSSR 
SUBORDINATE ROUTINES; 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



I SAVE GENERAL REGISTERS 
iSAVE THE TSSR CONTENTS 
jPRINT THE CONTENTS OF TSSR 



177777 



PRITSSR 


> 
*SAVREG 






MOV 


k*,R4 




PRINTB 


*TSSRF0R,R4 




MOV 


R4.-CSP) 




MOV 


•TSSRFOR.-CSP} 




MOV 


♦2,-CSP) 




MOV 


SP,RO 




TRAP 


CIPNTB 




ADO 


•6.SP 




MOV 


R4.R0 




JSR 


PC, CHKAMB 




BCS 


5* 




PRINTX 


♦AMBTSSR 




MOV 


♦AMBTSSR.-(SP) 




MOV 


•l.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


#4,SP 


5t: 


MOV 


R4,R3 




BIC 


♦HIADDRJFATERR 




BEQ 


201 




MOV 


#>TMPBFR,R2 




MOV 


«TSSPBIT,R1 


101: 


TST 


R3 




BEQ 


15 1 




CI C 






ROi 


R3 




BCC 


131 




MOV 


(RD.PO 


llli 


MOVB 


(R0J*,CR2)* 




BNE 


11» 




MOVB 


*>* ., 1CR2) 


13«j 


TST 


(Rl)* 




BR 


10$ 


15*1 


CLRB 


CR2) 




PRINTX 


OtSSDEF.DThPBf 




MOV 


OTMPBFR, (SP) 




MOV 


OTSSDEF^CSP) 


->_=:-■■ ~. : ~ .---. 


- : - ■ ■"■--—" 


-^ .. ^_ -.^ -■■-.:■-. ..---. 



»GET TSSR SACK FOR CHKAMB 
I ARE CONTENTS AMBIGUOUS ? 
I BRANCH If NOT 
I SHOW CONTENTS ARE AMBIGUOUS 



tCONTENTS OF TSSR 
ITERCLS.R3 iCLEAR ALL MULTIPLE BIT FIELDS 
iNO BITS ARE SET 
, TEMPORARY ASCII BUFFER 
|A*CII EQUIVALENT OF BITS 
IREMAINING BITS TO CONVERT 
i BRANCH WHEN ALL ARE DONF 
i CLEAR CARRY FOR SHIFT 
I SHIFT NEXT BIT TO CARRY 
iBRANCH IF BIT NOT SET 
jPOINTER TO BIT DEFINITION 
I MOVE ASCIZ TO BUFFER 
iMOVE ALL BITS 

I INSERT A COMMA TO TERMINATE 
tPOINT TO NEXT DESCRIPTION 
iGET THE REMAINING BITS 
j TERMINATE THE LINE 
4PRINI THE BIT DEFINITIONS 



R 



E4 



VSV3 - GLOBAL AREAS 



MACRO M1200 23-MAP-A,4 09:44 PAGE 22-1 



PRITSSR - PR T NT TSSR CONTENTS 



74<j 
V46 

748 

749 



750 
751 
752 
75.? 
754 
75S 
756 
757 



758 
75'> 
760 



761 
762 



7 65 
764 
766 
76 1 
782 
7<55 
7*4 
785 
7P6 
787 
788 
7ti* 



006164 
006170 
006172 
006174 

006200 
006202 
006206 
006212 
006212 
006214 
006220 
006224 
006226 
006230 
006234 
006236 
006242 
006244 
006246 
006250 
006252 
006256 
006256 
006260 
006264 
006270 
006272 
006274 
006300 
006304 
006306 
006306 
006310 
006314 
006320 
006322 
006324 
006330 
006334 
006334 
006336 
006342 
006344 
006346 
006352 

006354 
006354 

006411 
006431 
0064 72 
006533 
006602 
006631 



012746 
010600 
104415 
062706 

010403 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
O42703 
001416 
006203 
006203 
006203 
016303 

010346 
012746 
012746 
0106 00 
104415 
062706 
042704 
001411 

010446 
012746 
012746 
010600 
104415 
062706 
013703 

010346 
012746 
010600 
104415 
062706 
000207 



045 
045 
045 
045 
045 
045 
045 



000002 
000006 



177761 
006672 



0064 72 
000002 



000006 
177717 

007232 



006533 

000002 



000006 
176377 



006431 
000002 



000006 
002176 



000001 
000004 



116 
116 
116 
11 . 
116 
116 
116 



20$; 



25$; 



30$; 



MOV 
MOV 
TRAP 
ADD 

MOV 

BIC 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

BIC 

BEQ 

ASR 

A5R 

ASR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

BIC 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

RTS 



045 
045 

045 
045 
045 
045 
045 



EPRT2; 

EPRT1; 

1SSRF0R; 

TEXASC 

TC0A5C 

TFCASC 

TSSOEF 

AM6T5SR 



ASCIZ 



02.-CSP) 

SP,RO 

C$PNTX 

06.SP 

R4.R3 
*tCTERCLS,R3 

TC0C0D(R3) I R3 
OTC0ASC.R3 
R3,-(SP) 
OTCOASC.-CSP) 

•2,-csp; 

SP,RO 

C$PNTX 

*6,SP 

R4.R3 

*tCFATERR,R3 

251 

R3 

R3 

R3 

TSFCOO(R3),R3 

0TFCASC.R3 

R3.-CSP) 

♦TFCASC.-CSP) 

♦2,-csn 

SP.RO 

CiPNTX 

06. SP 

0tCHIADDR,R4 

30$ 

♦TEXASC, R4 

R4,-(SP) 

♦TEXASC, -CSP) 

02,-CSP) 

SP,RO 

C$PNTX 

06, SP 

EPRTSW.R3 

R3 

R3.-CSP) 

01, (SP) 

SP.RO 

C$PNTX 

04.SP 

PC 



SEQ 0043 



{GET THE TSSR CONTENTS 

i CLEAR ALL BUT TERMINATION 

tGET THE TERMINATION CODE MEANING 

{PRINT THE TERMINATION CODE 



I TSSR CONTENTS AGAIN 

I CLEAR ALL BUT FATAL TERMINATION 

j DON'T PRINT IF ZERO 



j ALINE TERMINATION COOE FOR INDEX 
{GET THE FATAL TERMINATION CODE 
{PRINT THE FATAL TERMINATION CODE 



I CLEAR ALL BUT EXTENDED ADDRESS 

iDON* T PRINT IF ZERO 

»PRINT THE EXTENDED ADDRESS BITS 



{PRINT MEAASGE BUFFER ADDRESS 
jPRINT PROPER MESSAGE 



{RETURN TO CALLER 



*N«A ♦♦♦♦♦REPLACE M7196*^*" 



ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 



0Qfi&&--_QQfr7]£.-_ggfr7&. .006263. . ICOCQO i 



.EVEN 

,WORD 



4N«A TSSR - *06' 

#N#A Extended Addrete B i ta - 

#N#A Termination Cla»» Code 

#N4A Fatal Termination Clees 

*N*A TSSR Bits Sat; #T' 

*N#A TSSR Contents Are Ambiguous 4 



*06* 

*T' 

Coda 



*T 



u t zuu ,4* f w m , n ,_a> 



F4 
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PRITSSR - PRINT TSSR CONTENTS 



SEQ 0044 



790 
791 
792 
79:> 
794 
795 
7S3 
797 

796 

799 

HOO 
801 

AC 2 

803 

ao? 



006712 
006735 
006763 
007005 
007025 
007107 
007156 
007202 



007232 
007242 
007276 
007307 
007353 



116 
124 
124 
106 
122 
122 
125 
106 



007242 
111 

122 
102 
122 



157 
145 
141 
165 
145 
145 
156 
141 



007276 
156 
145 
165 
145 



162 
162 
160 
156 
143 
143 
162 
164 



007307 
164 
163 
163 
163 



It 
2$ 
3* 
4$ 
5$ 
6$ 
7$ 
6* 



TSFCODj 
1* 



2\ 
3$ 

4$ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



Normal Termination' 
Termination Condition' 
Tapa Status Alart' 
Function Reject' 
Recoverable Error - Tapa 
Racevarabla Error - Tapa 
Unrecoverable Error' 
Fatal Controller Error' 



Position One Record Down' 
Was Not Moved' 



11,2$, 3$, 4$ 

' Intarnal Diagnostic Failure' 

' Reserved' 

'Bus Interface or Sanity Check Error' 

•Reserved' 



G4 
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PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



SEQ 0045 



*0/ 
;V3 

All 
MS 

.'M4 
t- ;. S 
Pl6 

h;.8 

(h9 

a; ; i 

; -:>4 

fthe 

;V:7 

hit** 

1.42 



H/S 

o3\> 
i-*0 



JX 

,W4 
K45 

. •♦ I 

349 



007364 

007364 
007370 
007372 
007376 
007400 
OO7402 
007404 
007406 
007410 
007412 
007412 
007414 
007416 
0O7422 
007426 
007430 
007432 
007436 
007440 
007442 
007444 
007450 
007452 
007454 
007456 
0<.w456 
007460 
007462 
007466 
007472 

Ov;,:; 

007476 

007502 
007504 
00 7506 
007510 

007512 
007550 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
'04414 
062706 
005201 
020105 
002762 
000207 

045 

045 



.SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 

THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET, 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT; 



RO 
R3 
R4 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 



NOTE; R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



003130 



007550 
000003 



000010 



017306 



007512 
000003 



000010 



116 
116 



PRIPKT;; 

SAVREG 

MOV 

TST 

BNE 

CLR 

10$; MOV 
MOV 
ROL 
ROL 

PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

15$; MOV 
BEQ 
MOV 
JSR 
MOV 

20* : CLR 

25$: MOV 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BLT 

RTS 

045 PKTFRM; .ASCIZ 
045 PKTADDl .ASCIZ 
.EVEN 



R0.75 

KTENABLE 

10$ 

R3 

R3.R1 

R4 t R0 

RO 

Rl 

<►PKTADD.R1.R4 

M4.-CSP) 

Rl - r SP) 

OPKTADD.-CSP) 

#3,-(SP) 

SP.RO 

C$PNTB 

*10,SP 

R3.R0 

20$ 

R4 # R1 

PC.SETMAP 

R0 k R4 

Rl 

(R4)»,R2 

*PKTFRM,R1,R2 

R2.-CSP) 

Rl.-(SP) 

OPKTFPM.-CSP) 

♦3,-CSP) 

SP.RO 

C$PNTB 

010. SP 

Rl 

R1.R5 

25* 

PC 



j SAVE THE REGISTERS 

jSAVE NO. OF WORDS IN PACKET 

i ABOVE 28K UNDER TEST? 

jBR IF YES 

iSET HIGH ORDER ADDRESS TO 

I COPY HIGH ORDER ADDRESS 

j GET LOWEK ADDRESS 

I SHIFT BIT 15 INTO C BIT 

t ANO INTO HIGH ORDER. 

I PRINT PACKET ADDRESS 



iGET HIGH ORDER ADDRESS 
I BR IF NOT ABOVE 28K . 
I GET LOW ORDER ADDRESS 
I SETUP PAR6 MAPPING FOR 18 
,GET RETURNED PAR6 ADDRESS 
i SAVE WORD NUMBER 
»GET PACKET CONTENTS 
j PRINT THE DATA 



BIT ADDRESS 
BIAS 



l NEXT WORD NLM8ER 
iDONE ALL PACKET WORDS? 
I LOOP TILL ALL DONE 
jRETURN 



•*N*A Packet Word OUDltfA - *06 
'*N*A Pocket Address » *01*05« 



-14 
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PRXHX'Jft PRINT EXPO, RECV AND XOR BYTE 



SEQ 0046 



f*SL 
6S3 

ess 

as ? 
er>a 

RC1 

flo4 

6bb 
ttt>6 

i?*8 

36^ 
«70 
87] 
6'/ 2 
H72 
8?4 

a 76 

M77 



6 78 
87m 

MOO 
OH,. 

663 



007606 
007606 
007612 
007614 
007624 
007630 
007652 
007634 
007636 
007636 
007640 
007642 
007644 
007650 
007654 
007656 
007660 
vX)7664 
007666 

007670 



010203 

012700 
040001 
040002 
040003 

010346 
010146 
010246 
012746 
012746 
010600 
104414 
062706 
010500 
000207 

045 



.SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS j 



Rl 
R2 



OUTPUT: 



RO 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



177400 



007670 
000004 



0QQ012 



116 



045 



PRIBXOR:: 






SAVREG 




iSAVE THE REGISTERS 


MOV 


R2.R3 


jEXPECTED DATA 


XOR 


R1.R3 


,FORM THE EXCLUSIVE 


MOV 


*tc<377>, 


RO j BYTE MASK 


BIC 


R0,R1 


,SAVE LOU BYTE RECV 


BIC 


R0,R2 


iSAVE LOW BYTE EXPD 


BIC 


R0.R3 


iSAVE LOW BYTE XOR 


PRINTB 


OXORBFOR 


R2,R1,R3 j PRINT THE MESSAGE 


MOV 


R3.-CSP) 




MOV 


Rl.-(SP) 




MOV 


R2.-(SP) 




MOV 


*X0R8F0R 


•CSP) 


MOV 


*4,-(SP) 




MOV 


SP,RO 




TRAP 


CIPNTB 




ADD 


012, SP 




MOV 


R3,R0 


t R0 HAS XOR ON RETURN 


RTS 


PC 


, RETURN 10 CALLER 


XQRBKQRt 


,ASCIZ 


*N*A EXPDt *Q3*A RECV; *Q3*A 



XORi *Q3' 



.EVEN 



14 
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PPXXCf.' - PRINT EXPO, RECV AND XOR 

886 
«U7 
ttftfl 

fi £ ?0 

;?9p 

09 e . 

(196 
89-' 

699 
<>0C 
<*>! 
S02 



SEG 004 7 



.SBTTL PRIXOR 



PRINT EXPO, RECV AND XOR 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES, 



INPUTS: 



Rl 
R2 



OUTPUT: 



90C 

906 
V07 



9'KH 

?n 
via 



007736 
007 736 
007742 
007 744 
007754 
007 754 
007756 
007760 
007762 
007766 
007772 
00/774 
007776 
0.10002 
010004 

010006 



010203 



010346 

010146 

010246 

012746 010006 

012 746 000004 

010600 

104414 

062706 000012 

010300 

000207 



045 



116 



045 



RO 



PRIXOR:: 

SAVREG 

MOV 

XOR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

RTS 

XORFOR: .ASCIZ 
.EVEN 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



j SAVE THE REGISTERS 
R2,R3 jEXPECTED DATA 

R1.R3 .FORM THE EXCLUSIVE OR 

♦XORFOR. R2.R1.R3 j PRINT THE MESSAGE 
R5.-CSP) 
Rl.-CSP) 
R2,-(SP) 
OXORFOR.-CSP) 
#4,-(SP) 
SP,RO 
CIPNTB 
G12.SP 

R3.R0 jRO HAS XOR OS RETURN 

PC {RETURN TO CALLER 

'*N*A EXPD: *06*A RECV: *06*A XOR: *06 



J 4 
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PRIFQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



SEQ 0048 



910 
915 
916 

917 

9 I f # 

9;.'C 

9.H 

9^ 
9,/ 4 

'V.'j;, 
«*,?6 

■>;? r 
\K>'i 
V2 * 

9iO 

9H 

91, 

9S3 

9754 

97 !'» 

936 

93/ 

93."'i 

9.X 9 

•■•■'■■ J 
M? 

H44 
°45 
94o 
94 V 
948 



010054 
O10054 
010060 



949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
9b? 
965 
964 



000207 



010062 
010062 
010066 
010066 
010070 
010074 
010100 
010102 
010104 
010110 

010112 



010446 

012746 010112 

012746 000002 

010600 

104414 

062706 000006 

000207 

045 116 



045 



.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS; 



PRIEQU: 



RO 
Rl 



SAVREG 
RTS 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



PC 



tSAVE THE REGISTERS 
j RETURN TU CALLER 



.SBTTL PRIRAM - PRINT RAM ADDRESS 



i * 



j PRINT CONTROLLER RAM ADDRESS. 

i THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



; INPUTS 


* 




• 
s 


R4 


RAM ADORESS 


PRIRAM t 


SAVREG 






PRINTB 


•RAMF0R.R4 




MOV 


R4, -CSP) 




MOV 


tPAMFOR, (SP) 




MOV 


♦2, -CSP) 




MOV 


SP.RO 




TRAP 


CIPNT9 




ADD 


06, SP 




RTS 


PC 


RAMFORj 


.ASCIZ 
.EVEN 


•#NrfA CONTROL 



jSAVF Rl R5 UNTIL NEXT RETURN 
j PRINT RAM ADORESS IN ERROR 



, RETURN 



tf06' 



.SBTT'. PRIADD 



PRINT MEMORY ERROR ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY F'RQM PRINT ROUTINES. 



IMPLICIT INPUTS 

ERRHI 
ERRLQ 



HIGH ORDFR ADDRESS 
LOW ORDER ADDRESS 



I<4 
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PRIADD - PRINT MEMORY ERROR ADDRESS 



SEQ 0049 



965 
966 
967 
968 
969 
970 
971 
972 
973 
974 



975 
9/6 
977 
978 
979 
980 
961 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 



010154 
010154 
010160 
010164 
010170 
010172 
010174 

01017f, 
OlOl^S 
010200 
010202 
010206 
010212 
010214 
010216 
010222 

010224 



1001 



1002 



010270 
010270 
010274 
010300 



010304 
010304 
010306 
010312 
010316 
010320 
010322 
0103^6 
010325 
010330 
010334 
010340 
010342 
010344 
01Q35Q 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



J 



0C2234 
002236 



010146 
012746 

01274o 
010600 
104414 
062706 

010246 
012746 
012746 
010600 
104414 
06? 706 
000207 



010224 
000003 



000010 
116 



045 



J - 






PRIADD; 


GAVREG 






MOV 


ERRHI,RO 




MOV 


ERRL0.R1 




MOV 


R1.R2 




ROL 


Rl 




ROL 


RO 




PRINTB 


OPRIA0.R0.R2 




MOV 


R2.-CSP) 




MOV 


RO.-(SP) 




MOV 


*PRIAO, -(SP) 




MOV 


♦3,-CSP) 




MOV 


SP.RO 




TRAP 


CtPNTtt 




AOD 


•io.sp 




RTS 


PC 


PRIAO; 


.ASCIZ 
.EVEN 


'*N*A MEMORY 



jSAVE R1-R5 UNTIL NEXT RETURN 

,GET HIGH AD0RE3SS 

I GET LOW ADP^ESS 

I COPY LOW A' 3E5S 

jSHIFT BIT C BIT 

» SHIFT INTO hlGH ORDER 

, PRINT MEMORY ADDRESS IN ERROR 



j RETURN 



■ *01*05' 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 



ERRHI 
ERRLO 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



PRITADD i 



013702 002234 
013701 002236 



010352 
000002 



000006 



010415 
000002 



000006 



SAVREG 

MOV 

MOV 

jMOV 

j ROL 

i ROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



ERRHI. R2 

ERRLO. Rl 

R1.R2 

Rl 

RO 

0PRIT0.R1 

Rl.-(SP) 

GPRITO, (SP) 

*2,-<SP) 

SP . RO 

CIPNTB 

*6.SP 

•PRIT1.R2 

R2. -(SP) 

OPRITl.-(SP) 

#2 , - ( SP ) 

SP.RO 

CIPNTB 

*6 ( SP 

PC 



j SAVE R1-R5 UNTIL NEXT RETURN 

iGET HIGH AODRESSS 

jGET LOW ADDRESS 

I COPY LOW ADDRESS 

tSHlFT BIT 15 TO C BIT 

I SHIFT INTO HIGH ORDER 

j PRINT MEMORY ADDRESS LOW IN ERRUR 



i PRINT MEMORY ADDR&SS MXGH XN &RRQR 



I RETURN 



L4 
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PRITADD - PRINT MEMORY TEST ADDRESS 



SEQ 005Q 



1003 
1004 

1005 
1006 
100 7 
1008 
1009 



01035? 045 116 045 PRITO; 
010415 045 116 045 PRIT1: 



.ASCIZ 
.ASCIZ 

.even 



rfhWA 
*N*A 



MEMORY 
MEMORY 



TEST 
TEST 



ADDRESS 
ADDRESS 



LOW - *06' 
HXGH « *06' 



M4 
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SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



SEQ 0051 



1011 

1012 

1013 

1014 

101b 

1016 

1017 

1018 

1019 

1020 

J021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 



010462 
010462 
010466 
010474 
010502 
010504 
010506 
010512 
010514 
010520 
010524 
010532 
010536 
010542 
010546 
010550 
010550 
010554 
010556 
010562 
010564 
010570 



012737 
012737 
005703 
100403 
010337 
000407 
042703 
010337 
052737 
012704 
010465 
004737 
103420 

012727 
000000 
013727 
000000 

00536/ 
001375 



.SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



5 ♦ 



{ROUTINE TO ISSUE A SPACE RECORDS 
{COMMAND (FORWARD OR REVERSE) 



{INPUT; 



R3 



R5 



NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 - IS FORWARD 

BIT15 ■ 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



{OUTPUT; 



CARRY 



RO 



SET - SPACE RECORDS COMMAND 
CLR - SPACE RECORDS FAILED 



OK 



THE CONTENTS OF R4 IS MOVED TO r>n 



{IMPLICIT OUTPUT: 

| TAPE HAS BEEN MOVED 

'{SIDE EFFECTS: 



SPACE 



000764 010650 
140010 010640 



010642 

100000 

010642 

000400 010640 

010640 

OOOOOO 

016240 



000250 

002116 
17777a 



55: 

10*: 
15$: 



SAVREG 

MOV 

MOV 

TST 

BMI 

MCV 

BR 

BIC 

MOV 

BIS 

MOV 

MOV 

JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 



0500. .SDFLAY 
0140010,80$ 
R3 
5$ 

R3,90$ 
10$ 

OBIT15.R3 
R3,90$ 
O8IT8,80$ 
080$, R4 
R4.TSD0CR5) 
PC.WAITF 
20$ 
250 

0250, (PC)* 


L$DLY,(PC)f 

6(PC) 
. -4 



{SAVE THE GENERAL REGISTERS 
{SET UP DELAY 

, SET UP COMMANO, SPACE FORWARD 
iCHECK FOR DIRECTION 
{BR, IF REVERSE INDICATED 
{LOAD VP NUMBER OF RECORDS TO SPACE 
{GO DO COMMAND 
jCLEAR DIRECTION BIT 
{LOAD UP NUMBER OF RECORDS TO SPACE 
{SET REVERSE BIT IN COMMAND PACKET 
l SET UP R4 WITH PACKET ADDRESS 
{SEND OUT COMMAND 
{WAIT FOR SSR 
jBR, IF SSR IS SET AND OK 
{DELAY ABOUT ,25 SECONDS 



N4 
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010572 


005367 


1777S6 




010576 


001367 




1062 


010600 


005337 


010650 


1063 


010604 


001356 




1064 


010606 


000411 




1065 


010610 


016501 


000002 


1066 


010614 


012702 


000200 


1067 


010620 


020201 




1068 


010622 


001401 




1069 


010624 


000402 




1070 


010626 


000261 




1071 


010630 


000401 




1072 


010632 


000241 




1073 


010634 






10/4 


010634 


010400 




1075 


010636 


000207 







DEC 


-22CPC) 




8NE 


.-20 




DEC 


SDELAY 




BNE 


15? 




BR 


60? 


20$: 


MOV 


TSSR(R5),R1 




MOV 


4SSR.R2 


25*: 


CMP 


R2.R1 




BEQ 


40? 




BR 


60? 


40*: 


SEC 






BR 


70? 


60?: 


CLC 




70?: 








MOV 


R4 t R0 




RTS 


PC 



;eq oosa 



j BUMP DELAY COUNTER DOWN 

{BR, IF MORE DELAY 

; BR IF TROUBLE CARRY - CLEAR 

tREAD TSSR 

tSET UP EXPECTED 

j ARE THEY OK 

j BR, IF EQUAL - OK 

j TROUBLE EXIT 

j SET CARRY NO TROUBLE 

i EXIT 

j CARRY CLEAR - ERROR 



j PASS PACKET 
j RETURN 



ADDRESS 



B c 



J 
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SPACE SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



SEQ 0053 



107; 
10 ?* 
10/9 

1080 
1081 
1085 
1086 
108 7 
1088 
1089 
1090 
1091 
109? 
1093 



010640 000000 



loe^ 

10644 

10646 
10650 



OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



PACKET FOR SPACE COMMAND 



jCOMMANC 


WORD 




801 j 


.WORD 




I NUMBER 


OF RECORDS 


90$ j 


.WORD 
.WORD 
.WORD 




SQ&LAYi 


.WORD 
.EVEN 






TO BE SPACED OVER WORD 



iDfcLAY COUNTER 
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WRTCHR - WRITE CHARACTERISTICS COMMAND 



C'5 



SEQ 0054 



1095 








1096 








1097 








1098 








1099 








1100 








1101 








1102 








1103 








1104 








1105 








1106 








1107 








1108 








1109 








1110 








llll 








1112 








1113 








1114 








1115 








1116 








1117 








1118 








1119 








1120 








1121 








1122 








1123 








1124 








1125 








1126 








1127 


C10652 






1128 


010652 






1129 


010656 


005037 


002226 


1130 


010662 


005037 


002224 


1131 


010666 


010465 


000000 


1132 


010672 


004737 


016326 


1133 


010676 


103401 




1134 


010700 


000435 




1135 


010702 


016501 


000002 


1136 


010706 


012702 


000200 


1137 


010712 


032701 


000100 


1138 


010716 


001402 




1139 


010720 


052 702 


000100 


1140 


010724 


020201 




1141 


010726 


001401 




1142 


010730 


000421 




1143 


010732 


062704 


000010 


1144 


010736 


011403 




1145 


010740 


052763 


000200 000012 


1146 


010746 


001402 




1147 


010750 


00523:* 


002224 


1148 


010754 






1149 


010754 


032763 


000100 00001? 


1150 


010762 


001402 




1151 


010764 


005337 


002556 



.SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 



INPUT; 



R4 ADDRESS Of PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOriNIT BE DONE PREVIOUSLY 



OUTPUT { 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMANO OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER ANO OTHER BUFFERS ALL SET UP 

SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA ■ EXTENOED FEATURES PRESENT 
BENBSW • BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



WRTCHR i 


♦ 
"sAvrcc 






CLR 


BENBSW i 




CLR 


EXTFEA 


10* j 


MOV 


R4.TSD8CR5) 




JSR 


PC.CHKTSSR 




BCS 


20* 




BR 


60) 


20$ j 


MOV 


TSSR(R5),Rl 




MOV 


«SSR,R2 




BIT 


♦0FL.R1 




BEQ 


25* 




BIS 


•0FL.R2 


25*: 


CMP 


R2.R1 




BEQ 


40* 




BR 


60* 


40$ j 


ADO 


08,, R4 




MOV 


(R4),R3 




BIT 


#X2.EXTF,XST2(R3) 




BEQ 


45* 




INC 


EXTFEA 


45* t 








BIT 


*X2 l BUFE t XST2(R3) 




BEQ 


50* 




INC 


BENBSW 



4 SAVE THE GENERAL REGISTERS 
j CLEAR BUFFER ENABLE SWITCH 

{CLEAR EXTENDED FEATURES SW SWITCH 

iSENO OUT COMMAND 

iWAIT FOR SSR 

|BR, IF SSR IS SET AND OK 

i BR IF TROUBLE CkARY - CLEAR 

iREAD TSSR 

l SET UP EXPECTED 

tWAS OFF LINE SET IN TSSR 

iBR, IF NO OTL SET 

I MAKE THEM LOOK ALIKE 

j ARE THEY OK 

I BR, IF EQUAL ■ OK 

iTPOUPLE EXIT 

jPOINT TO WRT CHARA DATA PACKET 

I GET ADDRESS OF MESSAGE BUFFER 

jEXTENOED FEATURES BIT SET? 

i BR IF NO 

I SET EXTENOED FEATURES SW SWITCH 

, BUFFER ENABLE SWITCH SET 
IBM, IF SWITCH NO! SET 
I SET SOFTWARE SWITCH FOR ENABLED 



D5 
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WRTCHR - WRITE CHARACTERISTICS COMMAND 

50$ i 



000002 



SEQ 0055 



il52 


010770 




1155 


010770 


000261 


1154 


010772 


000401 


1155 


010774 


000241 


1156 


010776 


016500 


115? 


011002 


000207 


1158 






1159 









SEC 






BR 


70$ 


60* i 


CLC 




70$; 


MOV 


TSSR(R5),R0 




RTS 


PC 



I SET CARRY NO TROUBLE 
l EXIT 

; CARRY CLEAR • ERROR 
i RETURN TSSR CONTENTS 
j RETURN 



E5 



TSV5 - GLOBAL AREAS 



MACRO M120C 23-MAR-84 09j44 PAGE 30 



REWIND - POSITION TAPE (REWIND) COMMAND 



1161 
1162 
1163 
1164 

116S 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

116) 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 



SEQ 0056 



1197 
1198 
1199 
1200 
1201 
1202 
1203 
1205 
1207 
1208 
1209 
1210 



011004 
0110C4 
011010 
011014 
011020 
011024 
011030 
011032 
011032 
011036 
011040 
011044 
011046 
011052 
011054 
011060 
011062 
011064 
011066 
011070 
011072 



011100 
011100 
011102 



.SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAlTIONj THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE, ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PC, REWIND 



INPUT t 



OUTPUT 



R5 



RO 



FIRST DEVICE UNtB'JS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



'SWlNDr 



012704 
010465 
012703 
004737 
103417 

012727 
000000 
013727 
000000 
0C5367 
001375 
005367 
001367 
005303 
001357 
00024 1 
010400 
000207 



011100 

102010 
000000 



011100 
000000 
000550 

016240 



000372 
002116 
177772 

177756 



10: 



20$ 



RWPACKj 



SAVREG 




MOV 


♦RWPACK.R4 


MOV 


R4.TSDBCR5) 


MOV 


0360. ,R3 


JSR 


PC.WAITF 


BCS 


20$ 


DELAY 


25C. 


MOV 


•250..CPO* 


.WORD 





MOV 


L$DLY,(PC)* 


.WORD 





etc 


-6CPC) 


BNE 


. -4 


DEC 


-r:?(PC) 


BNE 


. -.0 


DEC 


R3 


BNE 


10$ 


CLC 




MOV 


R4.R0 


RTS 


PC 



iSAVE R1-R5 UNTIL NEXT RETURN 

iGET PACKET ADDRESS 

iSEND PACKET ADDRESS TO EXECUTE 

jENOUGH TIME FOR 2400' REEL TO REWIND 

jWAIT FOR SSR TO SET 

jLEAVE WHEN SSR IS SET 

I WAIT FOR ,25 SECONDS 



.-<. tlO>6177770 



.WORD 
.WORD 



102010 




I BUMP COUNTER DOWN 
iKEEP GOING 

j CLEAR CARRY TO SET ERROR 
tPASS THE PACKET ADDRESS 
t RE TURN 



iPOSTIDN COMMAND (REWIND) 
I NOT USED 
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SEQ 0057 



1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1226 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

124 3 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 



011104 
011104 
011110 
011114 
011120 

011122 
011126 
011134 
011140 
011144 
011150 
011154 
011156 
011160 
011102 
011164 
011170 
011172 
011174 
011176 
011200 
011202 
011204 

011212 



012701 
012702 
005003 
004737 
112765 
004737 
010265 
004737 
116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



.SBTTL CKRAM - COMPARE RAM TO I/O PACKET 



ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 
R5 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 

IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 6. FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM: 



002240 
000201 

016326 

000000 000000 

016326 

000000 

016326 

000000 



000210 



0QQ01Q 002300 





SAVREG 






MOV 


ORAM0ATA.R1 




MOV 


0RMPKTBEG.R2 




CLR 


R3 




JSR 


PC.CHKTSSR 




MOVB 


*0,TSDB(R5) 


10*: 


JSR 


PC.CHKTSSR 




MOV 


R2,TSDB(R5) 




JSR 


PC.CHKTSSR 




MOVB 


TSBA(R5\CR1 




CMPB 


(R1)*,(R4)* 




BEQ 


201 




INC 


R3 


20*: 


INC 


R2 




CMP 


R2.0RMPKTEND 




BLE 


10$ 




TST 


R3 




BEQ 


30$ 




CLC 






BR 


50$ 


305: 


SEC 




5U«s 


MOV 


08, i RAMSIZ 




RTS 


PC 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSP 

SET MAINTENANCE MOOE 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

AND EXIT 

show good compare; 

setup ramsiz for prampkt routine 

RETURN 



G5 
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SEQ 0058 



1267 








1266 








1269 








1270 








1271 








1272 








1273 








1274 








1275 








1276 








1277 








1278 








1279 








1280 








1281 








1282 








1283 








1284 








1285 








1286 








1287 








1288 








1289 








1290 








1291 








1292 








1293 








1294 








1295 


011214 






1296 


011214 






1297 


011220 


012701 


002240 


1298 


011224 


012702 


000167 


1299 


011230 


005003 




1300 


011232 


OC4737 


016326 


1301 


011236 


112765 


OOOOOO 000000 


1302 


011244 


004737 


016326 


1303 


011250 


010265 


OOOOOO 


1304 


011254 


004737 


016326 


1305 


011260 


116511 


OOOOOO 


1306 


011264 


122124 




1307 


011266 


001401 




1308 


011270 


005203 




1309 


011272 


00520" 




1310 


0112/4 


012737 


0000 10 002300 


1311 


011302 


005 737 


002224 


1312 


0113O6 


001407 




1313 


011310 


012737 


000012 002300 


1314 


011316 


020227 


000200 


1315 


011322 


003 750 




1316 


011524 


000403 




1517 


011326 


020227 


000176 


1318 


011332 


003744 




1319 


011J34 


005703 




1320 


011336 


001402 




1321 


011340 


000241 




1322 


011342 


000401 




1323 011344 


000261 





.SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 

♦ 

ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK, 



INPUT: 



R4 
R5 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT; 



CARPY SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 

IMPLICIT OUTPUT? 

THE TABLE RAMCATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM2 : 



10$ 



20$ 



25$ 
27$ 



301 



SAVREG 




MOV 


ORAM0ATA.R1 


MOV 


0RMCHBEG.R2 


CLR 


R3 


JSR 


PCCHKTSSR 


MOVB 


♦O.TSD8CR5) 


JSR 


PCCHKTSSR 


MOV 


R2.TSDBCR5) 


JSR 


PCCHKTSSR 


MOVB 


TSBACR5),(R1) 


CMPB 


CRl)» t CR4)» 


BEQ 


20* 


INC 


R3 


INC 


R2 


MOV 


4>8. , RAMSIZ 


TST 


EXTFEA 


BEQ 


25* 


MOV 


010. .RAMSIZ 


CMP 


R2,*RMCHEND 


BLE 


10* 


BR 


27* 


CMP 


R2,*RMCHEND-2 


BLE 


10* 


TST 


R3 


BLQ 


30* 


CLC 




BR 


50* 


SEC 





SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS Of FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

SET MAINTENANCE MODE 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

ASSUME EXTFEA NOT SET 

IS THE SOFTWARE EXTENDED FEATURES SET 

BR. IF NOT SET 

SET RAMSIZ FOR EXTEND FEATURES 

AT ENO Of EXTENDED BUFFER 

BR. IF NOT AT END YF.T 

AT ENO BRANCH 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

AND EXIT 

SHOW GOOD COMPARE 
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SEQ 0059 
CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 

1324 011346 000207 50$: RTS PC i RE TURN 

1325 



15 
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CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 



SEQ 0060 



1327 








1328 








1329 








1330 








1331 








1332 








1333 








1334 








1335 








1336 








1337 








1338 








1339 








1340 








134?. 








1342 








1343 








1344 








1345 








134o 








1347 








1348 








1349 








1350 








1351 








1352 


011350 






1353 


011350 






1354 


011354 


OlOCo/ 


002302 


1355 


011360 


010137 


002304 


1356 


011364 


005737 


003130 


1357 


011370 


001403 




1358 


011372 


004737 


017306 


1359 


011376 


010001 




1360 


011400 


005004 




1361 


011402 


005003 




1362 


011404 


01020"* 




1363 


011406 


011264 


002320 


1364 


011412 


01T164 


002464 


1365 


011416 


022221 




1366 


011420 


001401 




1367 


011422 


005203 




1368 


011424 


062704 


000002 


1369 


011430 


020427 


000014 


1370 


011434 


003764 




1371 


011436 


032765 


000200 000012 


1372 


011444 


001403 




1373 


011446 


020427 


000016 


1374 


011452 


003755 




1375 


011454 


005703 




1376 


011456 


001402 




1377 


011460 


000241 




1378 


011462 


000401 




1379 


011464 


000261 




1580 


011466 


000207 




1381 









.SBTTL CKMSG - COMPARE WRITE CHAR, MESSAGE BUFFERS 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT j 



OUTPUT} 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE SUFFERS MATCH 

CLR -MESSAGli BUFFERS DON'T MATCH 



IMPLICIT OUTPUT; 

EXPMSG 
RECMSG 
RCVHIADD 
RCVIOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TC HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG? 



10$ 



15* 



25$ 



501 



55$ 
60$ 



SAVREG 

MOV 

MOV 

TST 

BEQ 

JSR 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

CMP 

BEQ 

INC 

ADD 

CMP 

BLF 

BIT 

BEQ 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 



RO, RCVHIADD 

Rl.RCVLOAD 

KTENABLE 

10$ 

PC.SETMAP 

R0.R1 

R4 

R3 

R2.R5 

CR2),EXPMSGCR4) 

(Rn,RECMSG(R4) 

(R2)»,CR1)* 

25$ 

R3 

02, R4 

R4.014 

15$ 

0X2.EXTF M XST2(R5 

50$ 

R4.016 

15$ 

R3 

55$ 

60$ 
PC 



SAVE R1-R5 UNTIL NEXT RETURN 
SAVE RECV HIGH ADDRESS 
SPVE RECV LOW ADDRESS 
TESTING ABOVE 28K? 
BR IF NO 

RETURN ADDRESS BIASED TO PAR6 IN RO 
GET RETURMED ADDRESS BIASED TO PAR6 
WORD IN BUFFER 
CLEAR ERROR SEEN FLAG 
GET EXPD BUFFER ADDRESS 
SAVE EXPO FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 
EXPD EQUAL RECV? 
8R IF YES 

SE1 ERROR SEEN FLAG 
POINT TO NEXT WORD ADDRESS 
DONE FIRST 7 WORDS? 
BR IF NO 

)tIS EXTENOED FEATURES SET IN EXPD? 
BR IF NO 

DONE EXTENDED FEATURES WORD? 
BR IF NO 
ANY ERRORS SEEN? 
BR IF NO 
SET FAILURE 

SET SUCCESS 
RETURN 
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CKMSG2 



COMPARE EXPO RECV MESSAGE BUFFERS 



J5 



SEQ 0061 



1363 










.SBTTL 


CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


1384 








1 ♦ 






1385 














1586 








jROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 


1387 








j BUFFER 


. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 


1388 








j ERROR 


PRINT ROUTINES. 


1389 














1390 








t INPUT: 






1391 














139? 










RO 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 


3 393 










Rl 


RECV MESSAGE BUFFER LOW ORDER ADDRESS 


1394 










R2 


EXPD MESSAGE BUFFER ADDRESS 


1395 










R3 


NUMBER OF BYTES TO COMPARE 


1396 














1397 








j OUTPUT 


♦ 




1398 














1399 










CARRY 


SET - MESSAGE BUFFERS MATCH 


1400 












CLR - MESSAGE BUFFERS DON'T MATCH 


1401 














1402 








! IMPLICIT OUTPUT j 


1403 














1404 










EXPMSG 


BUFFER IS SET TO EXPD DATA 


1405 










RECMSG 


BUFFER IS SET TO RECV DATA 


1406 










RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 


140? 










RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 


1408 














1409 








j - 






1410 


011470 






CKMSGSi 


• 




1411 


011470 








SAVREG 


jSAVE R1-R5 UNTIL NEXT RETl^N 


1412 


011474 


020327 


000144 




CMP 


R3.0PECMSG -EXPMSG j OSO IS COUNT ABOVE MAX ALLOWED? 


1413 


011500 


003412 






Bit 


5$ (SSO BR IF NO 


1414 


011502 


012703 


000144 




MOV 


^RECMSG -F.XPMSG , R3 , BSD 


1415 


011506 








PRINTF 


♦OF.BUGMSG 1 880 




011506 


012746 


011622 




MOV 


*0EBUGMSG,-(SP) 




011512 


012746 


000001 




MOV 


•l.-(SP) 




011516 


010600 






MOV 


SP.RO 




011520 


104417 






TRAP 


CIPNTF 




011522 


062/06 


000004 




ADD 


♦4.SP 


1410 


011526 


010037 


002302 


5$: 


MOV 


RO, RCVHIADD tSAVE RECV HIGH ADDRESS 


1417 


011532 


010137 


002304 




MOV 


Rl.RCVLOAD j SAVE RECV LOW ADDRESS 


1418 


011536 


005 737 


003130 




TST 


KTENABLE i TESTING ABOVE 28K? 


14 1«J 


03 1542 


001403 






BEQ 


10* jbR IE NC 


1420 


011544 


004/:. 7 


0173C6 




JSR 


PC.SETMAP jRf.TURN ADDRESS BIASED TO PAR6 IN 


1421 


011550 


010001 






MOV 


RU.R1 |UET RETURNED ADDRESS BIASED TQ P 


1422 


011552 


005004 




10$: 


CLR 


R4 <WOHD IN BUFFEfl 


1423 


011554 


005005 






CLR 


R5 {CLEAR ERROR SEEN i LAG 


1424 


01155*, 


111264 


002320 


)5»: 


MOVB 


CR2),EXPMSG(R4) /SAVE EXPD FOR ERROP REPORT 


1425 


011562 


11 1164 


002464 




MOVB 


(R1),RECMSGCR4) i SAVE RECV FOR ERROR REPORT 


1426 


011566 


12222J 






CMPB 


(R2)*,(R1) + j EXPO EQUAL MECV? 


1427 


011570 


001401 






BEQ 


25$ jBR IF YES 


1428 


011572 


005205 






INC 


P5 j SET ERROR SEEN FLAG 


1429 


011574 


062704 


000001 


251: 


ADD 


•1.R4 jPOINT TO NEXT BYTE 


1430 


011600 


020403 






CMP 


R4.R3 iDONE ALL BYTES? 


1431 


011602 


002001 






BGE 


50$ jBR IF YES 


1432 


011604 


000/64 






BR 


15i jOO NEXT BrTE 


1455 


011606 


005 705 




50*i 


TST 


R5 iANY ERRORS SEEN? 


1454 


011610 


001A02 






BEQ 


55* iBR IF NO 



RO 
PAR6 



I<5 
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SEQ 0062 



1435 011612 


000241 






Cl.C 




1456 011614 


000401 






BR 


60$ 


1437 011616 


000261 






55$? SEC 




1438 011620 


000207 






60$ j RTS 


PC 


1439 












1*40 011622 


120 


122 


117 


DEBUGMSG: 


.AS 


1441 011712 


045 


116 


045 


FERCMj .ASCII 


/*N 


1442 011723 


040 


040 


124 


ERCM: .ASCIZ 


/ 


1443 011756 


056 


056 


056 


SIMSG: .ASCIZ 


/. . 


1444 012011 


124 


105 


123 


TINERRj .ASCIZ 


/TE 


1445 








.EVEN 





,SET FAILURE 

I 

j SET SUCCESS 

, RETURN 

CIZ 'PROGRAM INTERNA;. ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ; 330 

*A ♦**/ 

TSSR ERROR CODE REC'D - / 

, . AFTER DOING SOFT 1NIT/ 

STi .../ 



L5 



TSV3 GLOBAL AREAS MACRO M120O ?3-MAR-84 09:44 PAGE 35 

CKMSU2 ■ COMPARE EXPO RECV MESSAGE BUFFERS 

144? 
1448 
1449 
1450 
1451 
145? 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 



SEQ 0063 



PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT: 

Rl CONTENTS OF TSSR AT ERROR 
SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



1464 
1465 
1466 



1467 
1466 
1469 
1470 
14/1 
147? 
14 7,5 
1474 
1475 
1476 
14 7 7 
1478 
1479 

1480 
1481 
148? 
1483 



1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
14 9? 
1493 
1494 
1495 
1496 



012024 
012024 
012024 
012030 
012034 
012034 
012034 



004737 
004737 



104423 



006020 
017172 



SFIMSG: : 



BGNMSG SFIMSG 



L 10003: 



JSR 
JSR 
ENDMSG 

TRAP 



PC.PRITSSR 
PC.CKOROP 



C*MSG 



{PRINT CONTENTS OF TSSR REGISTER 
j DROP UNIT, IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 



INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



012036 
012036 
012036 
012042 
012046 
012052 
012052 
012052 



BGNMSG PKTSSR 



004737 
012700 
004 737 



104423 



006020 
000004 
007364 



PKTSSR: 


■ 






JSR 


PC.PRITSSR 




MOV 


*4 # R0 




JSR 


PC.PRIPKT 




ENDMSG 




L 10004: 







j PRINT THE CONTENTS OF TSSR REGISTER 

j NO. OF WORDS IN PACKET 

j PRINT THE CONTENTS OF COMMAND PACKET 



TRAP 



CiMSG 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A GET STATUS COMMAND PACKET, 



INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



012054 
012054 



bGNMSG PKTGETS 
PKTGETS: : 



M! 



-J 



T5V3 - GLOBAL AREAS MACRO M1200 23-MAR-84 09:44 PAGE 35-1 
CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



SEQ 0064 



1497 
1498 
1499 
1500 



1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 



1513 
1514 



1515 
1516 
1517 
1518 
1519 
1520 
1521 
152c? 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 

1531 
1532 
1533 
1534 
1535 



1536 



012054 
012060 
012064 
012070 
012070 
012070 



012072 
0.2072 
012072 
012076 
012076 
012076 



012100 
012100 
012100 
012104 
012106 
0121 10 
012114 
012114 
012114 



004737 


006020 


JSR 


PC.PRITSSR 


012700 


000002 


MOV 


02, RO 


004737 


007364 


JSR 

ENDMSG 
L 10005: 


PC.PRIPKT 



iPRINT THE CONTENTS OF TSSR REGISTER 
jNO. OF WORDS IN GET STATUS PACKET 
I PRINT THE CONTENTS OF COMMAND PACKET 



104423 



TRAP 



C$MSG 



} PRINT TSSR ERRORS FOR INITIALIZATION TESTS 

: INPUTS: 

! Rl 
} R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



004 737 006020 



104423 



SFFMSG: t 



L 10006: 



BGNMSG SFFMSG 

JSR PC.PRITSSR 
ENDMSG 

TRAP CiMSG 



j PRINT CONTENTS OF TSSR REGISTER 



.SUTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE T3 PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUfFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSS^ 

R2 LOW ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



BGNMSG PKTMES 



004/3 7 006020 

010200 

010301 

004737 014232 



104423 



PKTMES:: 




JSR 


PC.PRITSSR 


MOV 


R2.R0 


MOV 


R3.R1 


JSR 


PC.PRMESS 


ENDMSG 





rssR 



jPRINT CONTENTS OF 

j LOW ORDER ADDRESS 

; HIGH QRDER ADDRESS 

i PRINT THE MESSAGE BUFFER 



L10007: 



TRAP 



C$MSG 



N 
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AODSSR 

1558 

1539 
1540 
1541 
154? 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 

1551 
155? 
1553 
1554 



1555 
1556 
155/ 
1558 
1559 
1560 
1561 
156? 
1563 
1564 
1565 
1566 
1567 
1568 
1569 

1570 

1571 
157? 
1573 
1574 
1575 



PRINT TEST ADDRESS AND TSSR 



SEQ 0065 



012116 
012116 
012116 
01212? 
012126 
01?1>>2 
012132 
012132 



1576 
1577 



012134 
012134 
012134 
012140 
012144 
012146 
012152 
012156 
012156 
012156 



.SBTTL ADD5SR 



PRINT TEST ADDRESS AND TSSR 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS; 



R5 FIRST DEVICE UNIBUS ADDRESS 
ERRHI HIG.-i ORDER MEMORY T EST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



004737 010270 
016501 000002 
004 7 37 006020 



104423 



ADDSSR: 



LlOOlOj 



i ♦ 



BGNMSG ADDSSR 



JSR 
MOV 
JSR 
ENDMSG 

TRAP 



PC.PRITADD 

TSSRCR5),R1 

PC.PRITSSR 



CJMSG 



jPRINT MEMORY TEST ADDRESS 

sGET CURRENT TSSR 

iPRINT THE CONTENTS OF TSSR REGISTER 



.SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUTER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADU- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG M5GEXP 



012700 000007 

005737 002224 
001402 

012700 000010 

004737 014542 



104423 



MSGEXP: 


• 






MCV 


07. RO 




Tsr 


EXTFF.A 




BEQ 


5$ 




MOV 


08. ,R0 


5$: 


JSR 
ENDMSG 


PC.PRMSGEXP 


L10011: 







{ASSUME NO EXT FEATURES 

jEXT FEATURES SET? 

} BR IF NO 

jEXT FEATURE BUFFER IS 8 

j PRINT EXPD/RECV MESSAGE 



WORDS 
BUFFERS 



TRAP 



C$MSG 



fc-36 
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FIFEXP - PRINT FIFO EXP/RECV DATA 



SEQ 0066 



1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 

1592 



1593 



1594 
1595 
1596 



1597 
1598 
1599 
1600 



012160 
012160 
012160 
012160 
012162 
012166 
012172 
012174 
012176 
012202 
012202 
012206 
012212 
012214 
012216 
012222 
012224 
012230 
012230 
012230 
012232 
012301 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 
045 
045 



• SBTTl FIFEXP - PRINT FIFO EXP/RECV DATA 
i 

PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

Rl - BYTE COUNT 

IMPLICIT INPUTS} 

EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 

RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS TIFO DATA ONLY) 



FlFEXPt J 



BGNMSG FIFEXP 



012232 
000002 



000006 

012- 01 
00<X 01 



000004 
015112 



116 
116 



045 

045 



L10012: 

FIF1MSG: 
FIF2MSGJ 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

JSR 

ENOMSG 

TRAP 



♦FIF MSG,R1 
Rl.-(SP) 

#fIFlMSG,-(SP) 

♦2,-CSP) 

SP.RO 

CIPNTX 

t6.SP 

♦FIF2MSG 

♦f IF2M5C.-CSP) 

♦i.-(SP) 

SP.RO 

CIPNTX 

04, SP 

Rl.RO 

PC.PRBYTEXP 



iPRI/JT 9YTF;S TRANSFERRED 



iPRINT HEADER M5G 



l&ET BYTE COLWT 

jPRINT FIFO BYTES IN ERROR 



.EVEN 



CIMSG 

,ASCIZ 

♦ASCIZ 



'#N#A NUMBER OF BYTES TRANSFERRED * *02 
•#N*A FIFO DATA BYTES IN ERROR t 1 



C6 
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M5GSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



SEQ 0067 



1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
161? 
1613 
1614 
1615 

1616 
1617 
1618 
1619 



1620 
1621 
1622 
1623 



1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 

1649 



012340 
012340 
012340 
012344 
012346 
012350 
012350 
012352 
012356 
012360 
012362 
012366 
012370 
012374 
012400 
012400 
012400 

012402 
012420 
012462 
012553 
012644 
012735 
012777 



013054 
013054 
013054 



.SBTTL MSGSTAT . PRINT STATUS HEADER AND MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTSi 



EXPMSG * EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADU- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000 766 
012700 
004737 



104423 

012420 
045 
045 
045 
045 
045 
045 



0X2402 



OOOOOl 



000004 

000012 

014542 



012462 
116 
116 
116 
116 
116 
116 



MSGSTAT; 
10*s 



BGNMSG MSGSTAT 



20$ t 



L10013} 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

MOV 

JSR 

ENOMSG 



♦STATC00.R1 

(Rl)^RO 

201 

RO 

RO.-(SP) 

•1,-CSP) 

SP.RO 

CIPNTX 

•4.SP 

101 

♦10..R0 

PC.PRMSGEXP 



I ASCII ADDRESS TABLE 
iDONE ALL MSG LINES? 
j BR IF YES 
jPRINT STATUS BIT NAMES 



I DO ANOTHER MSG LINE 

iNUMBER OF WORDS IN A READ STATUb BUFFER 

jPRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



CIMSG 



012553 STATCOOt 



045 
045 
045 
045 
045 
045 



II 
21 
3$ 
4* 
51 



.ASCIZ 
.ASCI/ 
.ASCI* 
.ASCI? 
.ASC.TZ 



6*},ASCIZ 



'UfJtfA 

'*K*A 

'*N*A 

wvi9f\ 

'*N*A 
' #N*A 



.WORD lt.2t,3t,4t.5t.6t a 



Top* 8u« Signals 
PARfcRR<15> 
IRESV2<14> 
IRESV1<13> 

Tap* But S tonal* 
DATMIS<7> 



in Word *8: ' 

IEOT <12> 

IIDENT'li* 

ICER <10> 
In Word #9: • 
ILW<6> 0UTRDY<5> 



IFhK <9> 
1HER <8> 
ISPEED<7> 



IR0Y<6> 
I0NL<5> 

ILDP<4> 



IRW0<2>' 
IFBY<1*' 
IFPT<0>» 



IN«DY<4> 



.EVEN 



.SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADO- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



012701 C13116 



BGNMSG 
MSCLQQPn 

MOV 



MSGLOOP 
tfLQQPCQD»RX 



j ASCII ADDRESS TABLE 



06 
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MSGLOOP - PfcTNT LOOPBACK HEADER AND MESSAGE BUFFERS 



SEQ 0066 



1650 
1651 
1652 



1653 
1654 
1655 
1656 



1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 



01*5060 
013062 
013064 
013064 
013066 
013072 
013074 
013076 
013102 
013104 
013110 
013114 
013114 
013114 

013116 
013136 
013211 
013310 
013407 
013506 
013605 
013704 



012100 
001410 

010046 
012746 
010600 
104415 
062706 
000^66 
012700 
004737 



104423 

013136 
045 
045 
045 
045 
045 
045 
045 



C00001 



000004 

000012 
014542 



013211 
116 
116 
116 
116 
116 
116 
1X6 



045 
045 
045 
045 
045 
045 



101 » 



20$ 



L10014: 



MOV 


(R1)*,R0 


BEQ 


20$ 


PRINTX 


RO 


MOV 


RO.-CSP) 


MOV 


*1,-<SP) 


MOV 


sp.ho 


TRAP 


C$PNTX 


ADD 


♦4.SP 


BR 


10$ 


MOV 


010. ,R0 


JSR 


PC.PRMSGEXP 


ENDMSG 





j DONE ALL MSG LINES? 

iBR IF YES 

iPRINT STATUS BIT NAMES 



i DO ANOTHER MSG LINE 

jNUiBER OF WORDS IN A READ STATUS BUFFER 

(PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



C$MSG 



013310 LOOPCOD: 



1$ 
2$ 
3$ 
4$ 

5$ 
6$ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.. SCIZ 
.ASCIZ 



.WORD 1*. 2$. 31, M.St, 61.71.0 



*NtfA Tap* Bus Loopbac* 
*N*A PARERR<15> 
#N#A IHISP->IE0T<12> 
#N*A IWFM ->IFMK<09> 
*N*A ITAD0«>IRDY<06> 
#N*A IREW ->IDBY<03> 



Signals in Uord 08: 
IRESV2<14> 

IWRT->IIDENT<11> 
IEDIT-MHER <08> 
ITAD1->I0NL <05> 
IRWU «>IRWD <02> 



IRESV1<13> 
IREV ->ICER <10> 
IFAD ->ISPEED<07> 
IERASE->ILDP <04> 
IFEN «>IF8Y <0i> 



045 7$ j.ASCIZ '*N*A IGO *>IFPT<00> 
.EVEN 



EG 
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MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



SEQ 0069 



1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 

1685 
1684 
1685 



1686 

16P 7 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 

1704 
1705 
1706 
1707 
1708 



1709 



013732 
013732 
013732 
013736 
013742 
013742 
013742 



.SBTTL MSGSUB * PRINT WRITE SUBSYSTEM MESSAGE BUFFER 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS* 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVEO MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 000012 
0C4737 014542 



104423 



MSGSUB t! 



BGNMSG MSGSUB 



L10015: 



MOV 
JSR 
ENDMSG 

TRAP 



*10.,R0 
PC.PRMSGEXP 



C$MSG 



I SIZE OF WRITE SUBSYSTEM BUFFER 
j PRINT EXPD/RECV ME r AGE BUFFERS 



013744 
013744 
013744 
013750 
013754 
013760 
013764 
013764 
013764 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 



PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 



IMPLICIT INPUTS; 



ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



004737 010154 

013701 002230 

013702 002232 
004737 007736 



104423 



MEMADD: 



BGNMSG MEMADD 



L10016; 



JSR 
MOV 
MOV 
JSR 
ENDMSG 

TRAP 



PC.PRIADD 
EXPD.R1 
RECV,R2 
PC.PRIXOR 



CiMSG 



j PRINT MEMORY ADDRESS IN ERROR 
tGET EXPO DATA 
,GET RECEIVED DATA 
{PRINT EXPD/RECV 



F6 
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PRAMPKT - PRINT RAM AND PACKET DATA 



1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
'.726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 



SEQ 0070 



.SBT1L PRAMPKT - PRINT RAM AND PACKET DATA 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA 00i£S NOT MATCH, 

INPUTS; 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMOATA 
RAMS I Z 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSI2 SET TO 



1747 
1748 
1749 
1750 
1751 
1752 
>753 
1754 
1755 
1756 
1757 
1,758 



013766 
013766 
013772 
013776 
014000 
014002 
014004 
014014 
014016 
014022 
014026 
014036 
014042 
014050 
014056 
014056 
014060 
014064 
014070 
014072 
014076 
014102 

omo4 

014106 
014112 
014114 
014120 
014122 
014126 
014130 
014132 
014136 
014140 
014144 

044146 



012701 
005002 
122124 
001005 

000436 
116105 

116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003724 
000403 
020227 
002720 
005037 
000207 

045 



002240 



177777 
177777 

177400 

177777 002232 

177777 002230 



002230 
002232 

014146 

000005 



000014 
002300 
002300 

000010 
002300 



PRAMPKT 


• 








SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 




MOV 


OflAMDATA.Rl 


iDATA FROM THE RAM 




CLR 


R2 


iINIT BYTE NUMBER 


5$: 


CMPB 


CR1)*.(R4)* 


i COMPARE EXPECTF.D, RECEIVED 




BNE 


7$ 


j BR IF NO MATCH 




FORCERROR 7$,N0TSSR 






BR 


10$ 


iS0O 


7$: 


MOVB 


-1CR1),R5 


iGET RECV RAM DATA 




MOVB 


-1CR4),R3 


i GET EXPO PACKET DATA 




XOR 


R5.R3 


jXOR EXPD/RECV 




BIC 


0177400, R3 


lLOU BYTE ONLY 




MOVB 


-1(R1),RECV 


iGET RECEIVED RAM DATA 




MOVB 


-1CR4),EXPD 


jGET EXPECTED RAM DATA 




PRINTS 


OflAMASC , R2 , RECV , EXPD , R3 






MOV 


R3.-CSP) 






MOV 


EXPD,-CSP) 






MOV 


RECV,-CSP) 






MOV 


R2.-CSP) 






MOV 


OHAMASC-(SP) 






MOV 


05,-CSP) 






MOV 


SP.RO 






TRAP 


C$PNTB 






ADD 


014, SP 




10$: 


INC 


R2 


jUPDATE BYTE COUNT 




TST 


RAMSIZ 


lOEFAULT TO 8.? 




BEQ 


15$ 


iBR IF YES 




CMP 


R2, RAMSIZ 


iDONE ALL BYTES? 




BL . 


5$ 


I BR IF NO 




BR 


25$ 


\ 


15* : 


CMP 


R2,*8. 


iDONE DEFAULT NUMBER OF BYTES? 


20$: 


BLT 


5$ 


j BR IF NO 


25$: 


CLR 


RAMSI2 


: SET DEFAULT RAMSIZ 




RTS 


PC 


jRETURN 



116 



045 RAMASCl .A5CIZ **N*A BYTE* *D2*A RAMt *Q3*A Packet J KQ3*A X0R:*Q3* 



G6 
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SEQ 0071 
PRAMPKT - PRINT RAM AND PACKET DATA 

1759 .EVEN 

1760 

1761 



-i6 
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PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



SEQ 0072 



1763 








1764 








1765 








1766 








1767 








1768 








1769 








17/0 








1771 








1772 








773 








774 








' 775 








7 76 








.777 








IV 78 








1779 








1780 


014232 






1781 


014232 






1782 


014236 


010005 




1783 


014240 


005737 


003130 


1784 


014244 


001001 




1785 


014246 


005001 




1786 


014250 


010103 




1787 


014252 


006100 




1788 


014254 


006101 




1789 


014256 








014256 


010546 






014260 


010146 






014262 


012746 


014410 




014266 


012746 


000003 




014272 


010600 






014274 


104415 






014276 


062706 


000010 


1790 


014302 








014302 


012746 


014455 




014306 


012746 


000001 




014312 


010600 






014314 


104415 






014316 


062706 


000004 


1791 


014 322 


005004 




1792 


C14324 


010501 




1793 


014 326 


010300 




1794 


014330 


001403 




1795 


014332 


004737 


017306 


1796 


014336 


010005 




1797 


014340 








014340 


012546 






014342 


010446 






014344 


012746 


014513 




014350 


012746 


000003 




014354 


0106CO 






014356 


104415 






014360 


062706 


ooooto 


1798 


014364 


005204 




1799 


014366 


020427 


000007 


iaoo 


014372 


003005 





.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



THIS ROUTINE PRINTS THE CONTENTS OF 

THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 

TSV-05. 

INPUT : 

RO LOW ORDER ADDRESS OF f^SSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: Rl IS IGNORED IF KTENABl.E FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



PRMESS: 




SAVREG 




MOV 


R0.R5 


TST 


KTENABLE 


BNE 


10$ 


CLR 


Rl 


10$: MOV 


R1.R3 


ROL 


RO 


ROL 


Rl 


PRINTX 


0PR0ASC.RLR5 


MOV 


R5,-CSP) 


MOV 


Rl.-(SP) 


MOV 


OPROASC.-(SP) 


MOV 


#3, -CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


♦io.sp 


PRINTX 


0PR1ASC 


MOV 


OPRIASC-(SP) 


MOV 


•l.-(SP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


04, SP 


CLR 


R4 


MOV 


R5.R1 


MOV 


R3.R0 


BEQ 


20$ 


JSR 


PC.SETMAP 


MOV 


R0.R5 


20*: PRINTX 


*PRASC,R4,(R5)* 


MOV 


CR5)*, -CSP) 


MOV 


R4.-CSP) 


MOV 


OPRASC,~(SP) 


MOV 


•5. -CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


010, SP 


INC 


R4 


CMP 


R4.07 


BGT 


50$ 



jSAVE THE REGISTERS 

»SAVE LOW ORDER ADORES? 

j ADDRESS ABOVE 28K? 

jBR IF YES 

iSET HIGH ORDER ADDRE 5 TO 

iSAVE HIGH ORDER ADDPSSS 

j SHIFT BIT15 TO C BI1 

j SHIFT TO HIGH ORDER rOR PRINTOUT 

jPRINT MESSAGE BUFFER ADDRESS 



l PRINT HEADER FOR CONTENTS 



j NUMBER OF THE NEXT WORD 

jCOPY LOW ORDER ADDRESS 

jCOPY HIGH ORDER ADDRESS 

l BR IF NOT ABOVE 28K 

j SETUP PAR ADDRESS IN RO 

l GET PAR FORMAT ADDRESS ABOVE 28K 

, PRINT THE CONTENTS OF MEMORY BUFFER 



, NUMBER OF THE NEXT 

l DONE ALL YET ? 

j BRANCH IF ALL DONE 



16 



o 
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PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



SEQ 0073 



1801 014374 


002761 








8LT 


20$ 


1802 014376 


032763 


000200 


000012 




BIT 


*X2.E: 


1803 014404 


001355 








BNE 


20$ 


1804 014406 


000207 






50$: 


RTS 


PC 


1805 














1806 014410 


045 


116 


045 


PROASC: 


.ASCIZ 


'*N*A 


1607 014453 


045 


116 


045 


PRIASCi 


.ASCIZ 


'*N*A 


1308 014513 


045 


116 


045 


PRASC; 


.ASCIZ 


'*N*A 


1809 










.EVEN 





, PRINT FIRST 7 WORDS 
*X2.EXTF t XST2(R3)<EXTENDED FEATUTES ON 



j PRINT EXTENDED 
jRETURN 

M#»*afl« Buffer Addr«99 ■ 
Message Buffer Contents; 
WordrfDHA; *Q' 



STATUS WORD 



*Ql*Q5 



J6 



TSV3 



3 - GLOBAL AREAS 


MACRO M1200 


SGEXK 


» - PRINT EXPD/RECV MESSAGE 1 


1811 








1812 








1813 








1814 








1815 








1816 








1817 








1818 








1819 








1820 








1821 








1822 








1823 








1824 








1825 


014542 






1826 


014542 






1827 


014546 


010005 




1828 


014550 


013700 


002304 


1829 


014554 


010004 




1830 


014556 


013701 


002302 


1831 


014562 


0O6100 




1832 


014564 


006101 




1833 


014566 








014566 


010446 






014570 


010146 






014572 


012746 


014722 




014576 


012746 


000003 




014602 


010600 






014604 


104415 






014606 


062706 


000010 


1834 


014612 








014612 


012746 


014767 




014616 


012746 


000001 




014622 


010600 






014624 


104415 






014626 


062706 


000004 


1835 


014632 


0O50O4 




1836 


014634 


012701 


002320 


1837 


014640 


012702 


002464 


1838 


014644 


011100 




1839 


014646 


011203 




1840 


014650 






1841 


014660 








014660 


010346 






014662 


012246 






014664 


012146 






014666 


010446 






014670 


012746 


015025 




014674 


012746 


000005 




014700 


010600 






014702 


104415 






014704 


062706 


000014 


1842 


01471C 


005204 




1843 


014712 


020405 




1844 


014714 


002001 




1845 


014716 


000^52 




1846 


014720 


000207 
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SEQ 0074 



.S8TTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 

i ♦ 

{ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
1 RO - NUMBER OF WORDS IN BUFFER 
I IMPLICIT INPUTS: 



t 
{ 
» 

J 
i 

PRMSGEXP: : 

SAVREG 

MOV 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

20$: MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
AOD 
INC 
CMP 
BGE 
BR 

50*: RTS 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



R0,R5 

RCVLOADD.RO 

R0.R4 

RCVHIADD, Rl 

RO 

Rl 

*PRMSG0,R1,R4 

R4, (SP) 

Rl.-CSP) 

0PRMSGO, -CSP) 

♦3. -CSP) 

SP.RO 

C$PNTX 

#10. SP 

0PRMSG1 

♦PRMSGl.-(SP) 

•l.-CSP) 

SP.RO 

CIPNTX 

♦4.SP 

R4 

♦EXPMSG.R1 

♦RECMSG, R2 

(Rl).RO 

(R2),R3 

R0.R3 

*PMMSG2,R4,(R1) 

R3. CSP) 

(R2)*.-(SP) 

(R1)».-(SP3 

R4, -CSP) 

0PQMSG2.-CSP) 

♦5. (SP) 

SP,RO 

CiPNU 

♦14, S& 

R4 

R4.R5 

50$ 

20$ 

PC 



{SAVE R1-R5 UNTIL NEXT RETURN 

»SAVE NUMBER OF WORDS 

iGET RECV LOW ADDRESS 

j COPY LOW ADDRESS 

j GET RECV HIGH ADDRESS 

{SHIFT BIT15 TO C BIT 

i SHIFT TO HIGH ORDER FOR PRINTOUT 

j PRINT MESSAGE BUFFER ADDRESS 



iPRINT HEADER FOR CONTENTS 



} NUMBER OF THE CURRENT WORD 
iGET EXPD BUFFER ADDRESS 
{GET RECV BUFFER ADDRESS 
{GET EXPD 
jGET RECV 
{ XOR EXPD/RECV 
*,(R2)*,R3 



{ NL-M8ER OF fHE NEXT 
iDOKE ALL YET? 
:BR L YES 
I DO ANOTHER 
j RETURN 



K* 



o 
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PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



184 7 
















1848 


014722 


045 


116 


045 


PRMSGO: 


.ASCIZ 


'*N*A 


1849 


01476? 


045 


116 


045 


PRMSG1: 


.ASCIZ 


•#N*A 


1850 


015025 


045 


116 


045 


PRMSG2} 


ASCIZ 


*KNWA 


1851 












.EVcN 




185* 

















Messaoe Buffer 
Messooe Buffer 
WORD tf*92*A 



SEQ 0075 



Address ■ 
Contents: 
EXPO i *06*A 



*01*05' 



RECV: *Q6*A XORj *06' 



L6 
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PRBYTEXP - PRINT ERROR B 'TES IN EXP/REC MESSAGE BUFFER 



SEQ 0076 



1854 








1855 








1856 








185? 








1858 








1859 








1860 








1861 








1862 








1863 








1864 








1865 








1866 








1867 


015112 






1863 


015112 






1869 


015116 


010005 




1870 


015120 


005037 


002316 


1871 


015124 


005004 




1872 


015126 


012701 


002320 


1873 


015132 


012702 


002464 


1874 


015136 


111100 




1875 


015140 


042700 


177400 


1876 


015144 


110037 


015460 


1877 


015150 


111203 




1878 


015152 


042703 


177400 


1879 


015156 


110337 


015462 


1880 


015162 






1881 


015172 


122122 




1882 


015174 


001431 




1883 


015176 


005237 


002316 


1884 


015202 


023727 


002316 


1885 


U15210 


101023 




1886 


015212 








015212 


010346 






015214 


013746 


01546? 




015220 


013746 


015460 




015224 


010446 






015226 


012746 


015326 




015232 


012746 


000005 




015236 


010600 






015240 


104415 






015242 


062706 


000014 


1887 


015246 






1868 


015256 


000404 




1889 


015260 






1890 


015260 






1891 


015270 






1892 


015270 


005204 




1893 


015272 


020405 




1894 


015274 


002001 




1895 


015276 


000717 




1896 


015300 








015300 


013746 


002316 




015304 


012746 


015413 




015310 


012746 


000002 




015314 


010600 






015316 


104415 





.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

♦ 

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS! 



000010 





EXPMSG 


- EXPECTED MESS 


AGE BUFFER 




RECMSG 


- RECEIVED MESSAGE BUFFER 


PRBYTEXP: • 








SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 




MOV 


R0.R5 


iSAVE NUMBER OF BYTES 




CLR 


PRMNO 


lINIT ERROR COUNT 




CLR 


R4 


^NUMBER OF THE CURRENT BYTE 




MOV 


0EXPMSG.R1 


j GET EXPO BUFFER ADDRESS 




MOV 


0«ECMSG,R2 


iGET RECV BUFFER ADDRESS 


20$: 


MOVB 


(RD.RO 


jGET EXPD BYTE 




BIC 


*tC<377>,RO 


I CLEAR UPPER BYTE 




HOVB 


RO.PRBEXP 


iSAVE FOR ERROR REPORT 




MOVB 


(R2).R3 


iGET RECV BYTE 




BIC 


OtC<d77>,R3 


l CLEAR UPPER BYTE 




MOVB 


R3.PRBREC 


,FOR ERROR REPORT 




XOR 


R0,R3 


iXOR EXPD/RECV 




CMPB 


(Rl)*,(R2)* 


; EXPD - RECV? 




BEQ 


30$ 


jBR IF YES 




INC 


PRMNO 


I UPDATE ERROR COUNT 




CMP 


PRMNO, 08. 


iPRINTED 8? 




BHI 


30$ 


iBR IF YES 


27$: 


PRINTX 


OPRBMSG . R4 , PRBEXP , PRBREC , R3 




MOV 


R3.-CSP) 






MOV 


PRBREC, -CSP) 






MOV 


PRBEXP, -(SP) 






MOV 


R4, (SP) 






MOV 


OPRBMSG, (SP) 






MOV 


05, -(SP) 






MOV 


SP.RO 






TRAP 


c$pntx 






ADD 


014, SP 






FORCEXIT 50$ 


jaao 




BR 


35$ 


j 800 


30$; 










FORCERROR 27$,N0TSSR 


joao 


35$: 






|S80 




INC 


R4 


j NUMBER OF THE NEXT 




CMP 


R4.R5 


{DONE ALL YET? 




BGE 


50$ 


iBR IF YES 




BR 


20$ 


j DO ANOTHER 


50$: 


PRINTX 


OPRBTOT, PRMNO 


jPRINT TOTAL ERROR COUNT 




MOV 


PRfSNO , - C SP ) 






MCV 


OPRBTOT.-(SP) 






MOV 


02, -(SP) 






MOV 


SP.RO 






TRAP 


c$pntx 





M6 
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PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

000006 



015320 

1897 015324 
1898 

1899 015326 

1900 015413 
1901 

1902 015460 

1903 015462 
1904 



062706 
000207 

045 
045 

000000 
000000 



SEQ 0077 



ADD 46, SP 
RTS PC 



i RETURN 



116 045 PRBMSG; .ASCIZ 
116 045 PRBTQTj .ASCIZ 

.EVEN 
PRBEXP; .WORD 
PRBREC: ,WORD 



*N*A BYTE <>*D2*A EXPO: *03*A RECVi *03*A XQR: *03' 
#N*A NUMBER OF BYTES IN ERROR - *D2' 

i EXPO 

jRECV 



N6 
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EXPREC PRINT EXPD/RECV WORD DATA 



1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 fU5464 
1 15464 

19J ■! 01b "M 

19; .0 0154 70 
015470 
015470 

19 U 

I9c2 
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004737 007736 
104 423 



SEQ 0070 



.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 

INPUTS: 



EXPREC: 
L10017: 



Rl 
R2 



BGNMSG 

JSR 
ENOMSG 

TRAP 



RECEIVED DATA 
EXPECTED DATA 



EXPREC 
PC, PRIXOR 



{PRINT THE DATA 



C*MSG 



B7 



TSV3 - GLOBAL AREAS MACRO M1200 
EXPBREC - PRIMT EXPD/RECV BYTE DATA 



1924 
192 r > 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
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1938 
1939 



1940 
1941 
1942 
1943 
1*44 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
19M 
1955 
1956 
195 7 
1958 
1959 
1960 
1961 
1962 
1963 
1964 

1965 
1966 



1967 
1968 
1969 

19/0 
1971 

19 7,' 
19/3 
1*74 



015472 
015472 
015472 
015476 
0154 76 

015476 



004737 007606 



104423 



015500 

015500 

015500 004737 913766 

015504 

0155O4 

015504 104425 



SEQ 0079 



.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
PRINT ROUTINE TO DISPLAY BYTE EXPO/RECV DATA 



INPUTS 



Rl 
R2 



RECEIVED DATA BYTE 
EXPECTED DATA BYTE 



BGNMSG EXPBREC 
EXPBREC: : 

JSR PC.PRIBXOR 

ENOMSG 
L 10020 j 

TRAP CIMSG 



jPRINT THfc DATA 



.SBTTL RAMERR - P1INT RAM AND PACKET DATA 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 

INPUTS I 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
TIMBER OT BYTES IN PACKET 
IF RAMSI7-0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



RAMERR: : 



L10021; 



I ♦ 
i 



BGWSG RAMERR 

JSR PC.PRAMPKT 

ENOMSG 



, PRINT RAM/PACKET DATA 



TRAP 



CIMSG 



.SBTTL RAHTADD . PRINT TEST ADDRESS, RAM ANO PACKET DATA 



, PRINT ROUIINE TO DISPLAY RAM/PACKET DATA 
(INPUTS! 
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RAMTADD PRINT TEST ADDRESS, RAM AND PACKET DATA 



C7 



SEQ 0080 



1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1^*7 
1988 
1989 
1990 
1991 

1992 
1995 
1<?94 



1995 
1996 
1997 
1998 
1999 
2000 
20C1 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 

2010 
2CU 
2C12 
2013 
2014 



2015 
2016 

2017 
2018 
2019 

2020 
2021 
2022 
202? 
2C24 

2Q25 



R4 



POINTER TO COMMAND PACKET 



IMPLICIT INPUTS i 

RAMDATA 
RAMSI2 



015506 
015506 
015506 
015512 
015516 
015516 
015516 



0O4737 

004737 



104423 



010270 
013766 



ERRHI 
ERRLO 

IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



BGNMSG RAMTADD 
RAMTADD;: 

JSR PC.PRITADO 

JSR PC,PRAMPKT 

ENOMSG 
L 10022: 

TRAP C1MSG 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF' RAMSIZ-0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOW ORDER TEST ADDRESS 



jPRINT TEST ADDRESS 
I PRINT RAM/PACKET DATA 



.SBTTL RAMEXP 



PRINT RAM EXPD/RECV DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 
R4 



RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 



0J5520 
015520 
015520 
015524 
015530 
0155S4 
015540 
015540 
015540 



04270. 
042702 
004737 
004737 



IQ44S5 



177400 
177400 
010062 
007736 



RAMEXP: 



BGNMSG RAMEXP 



L 10023: 



BIC 
BIC 
JSR 
JSR 
ENOMSG 

TRAP 



*tc<377>,Pl 
♦tc<377>, R2 
PC.PRIRAM 
PC.PRIXOR 



CIMSG 



iSAVE EXPO RAM DATA BYTE 

I SAVE EXPO RAM DATA BYT£ 

I PRINT THE RAM ADDRESS 

{PRINT THE DATA 



.SBTTL TIMEXP - PRINT TIMER A % B AND EXP/REC 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
AND TIMER A,B HEADER MESSAGE 



INPUTS: 



Rl 

R2 



RECEIVED DATA 
EXPECTED DATA 



D7 
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TIHF.XP PRINT TIMER A,B AND EXP/REC 



TIMEXP 



ro2u 






1 - 




20? 7 










2028 015542 








BGNM5G 


015342 






TIMEXP j 


• 


2029 015542 








"pRINTX 


015542 


012746 


015570 




MOV 


015546 


012746 


000001 




MOV 


015552 


010600 






MOV 


015554 


104415 






TRAP 


015556 


062706 


000004 




ADO 


2030 015362 


004737 


007736 




J5R 


2031 015566 








ENOMSG 


015566 






L 10024 j 




015566 


10442b 






TRAP 


2032 










2033 










2034 015570 


045 


116 


Q45 TIMSGOj 


.ASCIZ 


2035 






,EVEN 





SEQ 0081 



jPRINT HEADER 



OTIMSGO 

♦timsgo.-csp 4 ; 

01,-CSP) 

SP.RO 

CIPNTX 

*4, SP 

PC.PRIXOR jPRINT THE DATA 

C*MSG 

'*N*A TIMER A STATUS IS IN BIT 3*N*A TIMER B STATUS IS IN BIT 2' 



E7 
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BAOSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



SEQ 0082 



2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
204 7 
2048 
2049 
2050 

2051 
2052 
2053 



2054 
2055 
2056 



2057 
2058 



015670 
015670 
015670 
015672 
015676 
015676 
015700 
015704 
015710 
015712 
015714 
015720 
015722 
015726 
015726 
015726 
015730 



010246 
042702 

010246 
012746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



.SBTTL BAOSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS} 



Rl 
R2 



CONTENTS OF TSSR 
DATA WRITTEN C8 BITS) 



BAOSSR j 



BGNMSG BAOSSR 



177400 



015730 
000002 



000006 
006020 

116 



L 10025: 
045 XFERASC: 



MOV 

BIC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENDMSG 

TRAP 



R2.-CSP) 
0177400. R2 
♦XFERASC, R2 
R2,^CSP) 

♦XFERASC. -<SP) 

02. ~(SP) 

SP.RO 

CIPNTB 

*6.SP 

CSP)<,R2 

PC.PRITSSR 



l SAVE DATA TRANSFERRED 
iGET JUST ONE BYTE 



j RESTORE R2 
j DECODE TSSR 



CONTENTS 



C*M3G 
,ASCIZ 



*N*A Data Transferred * *03 



TSV3 - GLOBAL AREAS MACRO M1200 

GLOBAL SUBROUTINES SECTION 

2060 
2061 
2062 
2063 
2064 
2065 
2066 



F7 



23-MAR-84 09:44 PAGE 47 



SEQ 0063 



,SBTTL GLOBAL SUBROUTINES SECTION 

! THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
l THAT ARE USED IN MORE THAN ONE TEST, 



G7 
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SOFINIT - SOFT INITIALIZE OF CONTROLLER 



SEQ 0084 



2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2063 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2X09 



015764 
015764 
015770 
015776 
016002 
016006 
016010 
016014 
016020 
016022 
016024 
016026 
016030 
016032 



.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTEO SHOULD BE TREATED AS DEVICE FATAL ERRORS, 



INPUTS: 



R5 



OUTPUTS: 



RO 
CARRY 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR, IF ERROR 
SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 



MOV 
JSR 
BCS 
ERROF 



#ADDRESS,R5 
PC, SOFINIT 
CONTINUE 



{REPORT FATAL ERROR 



SOFINIT: 



012765 000000 000002 

004737 016240 

016500 000002 

010004 

042704 176277 

052704 002200 

020400 

001402 

000241 

000401 

000261 

oooao7 



51: 

10$ i 



SAVREG 

MOV 

JSR 

MOV 

MOV 

BIC 

BIS 

CMP 

BEG 

CLC 

BR 

SEC 

RTS 



t SAVE THE REGISTERS 
<K).rSSR(R5) i DO THE INIT. 

PC.UAITF j WAIT FOR SSR 

TSSR(R5),R0 iGET THE TSSR REGISTER 

R0.R4 i TSSR CONTENTS 

*tC<HIADDR!0FL>,R4 

♦SSR!N8A,R4 |R4 HAS EXPECTED CONTENTS 

R4.R0 iONLY EXPECTED BITS SET ? 

51 {BRANCH IF OKAY 

i CLEAR THE CARRY FOR ERROR 
10$ jGO TO EXIT 

jSET THE CARR1 BIT 
PC {RETURN TO CALLER 
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CHKAMB 

2ill 
2112 

•2113 
2114 
cll5 
2116 
2117 
2118 
2X19 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2126 
2129 
2130 

• 2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 



CHECK TSSR FOR AMBIGUITY 



SEQ 0085 



016034 
016034 
016040 
016042 
016046 
016050 
016054 
016056 
016060 
016064 
016066 
016072 
016074 
016100 
016104 
016106 
016110 
016114 
016116 
016122 
016124 
016126 
016130 
016133 



010004 
032700 
001004 
032700 
001023 
000424 
032700 
0O1011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001405 
032700 
001002 
000241 
000401 
000261 
000207 



.SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUTs 



RO 



OUTPUT ; 



RO 



CHKAMB: 



100000 
174077 

000200 

000040 

177761 
000016 

000040 
000006 



5$ 



10$ 



401: 

451? 
504: 



SAVREG 

MOV 

BIT 

BNE 

BIT 

BNE 

BR 

BIT 

BNE 

BIT 

BEQ 

BIC 

CMP 

BNE 

BR 

BIT 

BEQ 

BIT 

BNE 

CLC 

BR 

SEC 

RTS 



CONTENTS OF TSSR 



CONTENTS OF TSSR 



CARRY SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



R0.R4 

0SC.RO 

5* 

0t-C<NBA!0FL!5SR 

40$ 

45$ 

0SSR,RO 

10$ 

*6IT5,R0 

40$ 

0tCTERCLS,R4 

P4.016 

40$ 

45$ 

0BIT5.RO 

45$ 

♦eiT2!BIU,RQ 

45$ 

50$ 

PC 



I SAVE THE GENERAL REGISTERS 
iCONTENTS OF TSSR 
iIS BIT 15 SET ? 
I BRANCH IF YES 
!HIA0DR>,R0 j ANY OTHER BITS SET ? 
I MUST BE AN ERROR 
jRETURN WITH SUCCESS 
iIS READY BIT SET ? 
iBRANCH IF READY BIT IS SET. 
»IS FATAL ERROR BIT SET ? 
I ERROR IF NOT 

iCLEAR ALL BUT TERMINATION CODE 
I ALL THREE BITS MUST BE SET 
i ERROR IF NOT SET 
j OK IF ALL ARE SET 
iIS FATAL ERROR BIT SET ? 
lERROR IF BIT IS SET WITH SSR 
iIS THIS A FUNCTION REJECT 
iBR, IF TSSR IS OK 
I AMBIGUOUS CONTENTS 

j SHOW SUCCESS - NO AMBIGUITY 
iReTURN TO CALLER 



17 



TSV3 - GLOBAL AREAS 



MACRO M1200 23-MAR-84 09*44 PAGE 50 



ENAINT.DSBINT - ENABLE/DISABLE INTERRUPTS 



SEQ 0086 



2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2133 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 



016134 
016135 

016136 
016140 



016142 
016144 
016150 
016154 
016160 
016162 
016164 
016172 



016174 
016176 
016204 



000200 
000001 



000 
000 

000000 
000000 



010046 
013700 
012720 
012720 
012600 
011646 
012766 
000002 



011646 
012766 
000002 



002206 
016206 
000300 



000000 000002 



000300 000002 



.SBTTL ENAINT.DSBINT - ENABLE/DISABLE INTERRUPTS 



I DEFAULT DI5PLAY INTERRUPT HANDLERS. 

I IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS, 

i OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 



I BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BYTES: 



I0KCKIN-BIT7 
IOKSTP-BITO 



l DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL 
j EXPECT "STOP" INTERRUPT. 



I INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 

IKTMASK: .BYTE 

INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE) 

INTFLAG: .BYTE 

t SAVED INTERRUPT VECTOR: 

INTVECt .WORD 
i SAVE CPU PC 

INTCPC: .WORD 



I SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO.-CSP) jSAVE RO 

IVECRO 

OINTR.CRO)* 

♦PRI06.CR0)* 

CSP)t,«0 

(SP).-CSP) 

<K),2(SP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



iGET POINTER TO VECTORS 
jSET UP INTERRUPT VECTOR 

jRESTORE RO 

j SET CPU TO LEVEL 



I SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 6) 
DSBINT: MOV (SP).-(SP) 

MOV «PRX06,2(SP) 

RTI 



J7 
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INTR 



2195 
2196 
2197 

2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 



2207 
2208 



- INTERRUPT HANDLERS 



SEQ 0087 



016206 
016206 
016206 
016214 
016220 
016226 
016230 



012737 
105037 
132737 
001003 
152737 



016236 
016236 
016236 
016236 000002 



000001 
016135 
000001 



002222 
016134 



INTR: 



.SBTTL INTR 
BGNSRV INTR 



- INTERRUPT HANDLERS 



000001 016135 



MOV Ol.INTRECV 

CLRB INTFLAG 

BITB *IOKSTP,INTMASK 

BNE II 

BI5B OIOKSTP, INTFLAG 



jDEFINE INTERRUPT ENTRY 

,SET FLAG TO SHOU INTERRUPT RECEIVED 

i CLEAR FLAG TO SAY WE GOT INTERRUPT 

lEXPECTING STOP INTERRUPT? 

iBR IF YES 

j NO. SET THE ERROR FLAG. 



jSAVE RECISTERS, MSG BUFFER, ETC, 
1$: 

ENDSRV 
L 10026? 

RTI 



I<7 
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WAITF 



WAIT FOR SUBSYSTEM READY 



SEQ 0088 



2210 








2211 








2212 








2213 








2214 








2215 








2216 








2217 








2218 








2219 








2220 








2221 








2222 








2223 








2224 


016240 


000401 




2225 


016242 








016242 


104422 




2226 


016244 


012746 


003000 


2227 


016250 


016500 


000002 


2228 


016254 


105700 




2229 








2230 


016256 


100420 




2231 


016260 








016260 


012727 


OOOOOl 




016264 


000000 






016266 


013727 


002116 




016272 


000000 






016274 


005367 


177772 




016300 


001375 






016302 


005367 


177756 




016306 


001367 




2232 


016310 


005316 




2233 


016312 


001356 




2234 


016314 


000241 




2235 


016316 


000401 




2236 


016320 


000261 




2237 


016322 


005326 




22^Q 


016334 


000207 





.SBTTL WAITF • WAIT FOR SUBSYSTEM READY 
SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 



INPUTS! 

R5 
OUTPUTS j 



WAITF * 



1$: 
2$: 



3*2 

4$: 



RO 
CARRY 



BR 

BREAK 

TRAP 

MOV 

MOV 

TSTB 

BMI 

DELAY 

MOV 

.WORD 

MOV 

. WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

BR 

SEC 

DEC 

RTS 



ADDRESS OF FIRST DEVICE REGISTER 



CONTENTS OF LAST TSSR READ 



SET 
CLR 

1$ 



READY BIT GET 

TIMEOUT WAITING FOR READY 



CiBRK 

*3000, -(SP) 
TSSRCR5) t R0 
RO 

3* 

1 

♦l.(PC)* 



LtDLY.CPO* 



-6CPC) 

. -4 

-22CPC) 

. -20 

(SP) 

2% 

4$ 
(SP)* 

PC 



,NOP WHEN SUPER FIXED 

j DO A SUPVSR BREAK. FIRST 



j 300 MSEC 
j READ THE 
j TEST FOR 



TIMER 

TSSR REGISTER 

READY BIT SET 



I EXIT ON STOP FLAG. 
\ WAIT 100 USEC 



j REDUCE DELAY COUNT 

iRETRY UNTIL TIMER EXPIRES 

j C • 0, CONTROLLER STILL RUNNING... 

I... OR HUNG-UP AFTER 300 MSEC 

I C • 1. CONTROLLER IS STOPPED. 

^RESTORE STACK WITHOUT CHANGING CARRY 



BIT 



L7 



TSV3 GLOBAL ARFAS MACRO M1200 
CHKTSSR - CHECK TSSR FOR READY 



2240 
2241 
2242 
224 3 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 

2259 016326 

2260 016326 

2261 016332 

2262 016334 

2263 016340 

2264 016342 

2265 016346 

2266 016350 

2267 016354 

2268 016356 

2269 016360 

2270 016362 

2271 016364 
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SEQ 0089 



.SBTTL CHKTSSR - CHECK TSSR FOR READY 



THIS ROUTINE WAITS FOP READY IN THE TSSR 
AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR 



INPUT: 



OUTPUT 



R5 ADDRESS OF CSR REGISTERS 



RO CONTENTS OF TSSR 
CARRY SET - UKAY 

CLR - NOT READY AMBIGUOUS. OR SC SET 



i - 



004737 016240 

103014 

004737 016034 

103006 

032700 100000 

001405 

032700 074000 

001402 

000241 

000401 

000261 

000207 



CHKTSSR 


: 






JSR 


PC.WAITF 




BCC 


201 




JSR 


PC.CHKAMB 




BCC 


10* 




BIT 


0SC,RO 




8EQ 


15* 




HIT 


*<SCE»BIE!RMR!NXM>,RO 




BEQ 


15* 


10*: 


CLC 






BR 


20* 


15$; 


SEC 




20*; 


RTS 


PC 



l WAIT FOR READY 

I BRANCH IK TIME OUT 

j TSSR AM8IG0US? 

i BR IF YES 

t SPECIAL CONDITION SF.T? 

j BR Lf NO 

i ANY ERROR BITS SET? 

I BR IF NO 

jSET FAILURE 

jSET SUCCESS 

1 RETURN TO CALLER 



M7 
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XNXM 



2273 
2274 
2275 
22 76 
2277 
2278 
2279 
2280 
2281 
2282 
228? 
2284 
2285 
2286 
2287 

2286 

2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 



2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 



- CHECK FOR NONEXISTENT MEMORY 



SEQ 0090 



016366 
016374 
016402 
016404 

016406 
016410 
016412 
016416 

016420 
016422 
016426 
016430 
016430 
016434 
016436 
016440 
016442 
016444 



016446 
016446 
016452 
016454 
016460 
016462 
016466 
0164 70 
016172 
016^74 
0164 76 



012737 
012737 
005003 
005711 



016420 
000200 



000004 
000006 



020102 

001407 

062701 000002 

000772 

005103 

012716 016430 

000002 

012700 000004 

104436 

005703 

001401 

000261 

000207 



005737 
001006 
005737 
100403 
005337 
001002 
000241 
000401 
000261 
000207 



002166 
002202 
002214 



.SBTTL XNXM 



ROUTINE TO 
ON RETURN, 



TEST FOR 
IF "C" ■ 

"C" ■ 



- CHECK FOR NONEXISTENT MEMORY 

A NEXM IN THE RANGE CR1) THRU (R2). 
1, (Rl) - NEXM ADDRESS. 
0, ALL ADDRESSES OK. 



CALL; 

XNXM; 
1$; 



MOV ADR1.R1 
MOV ADR2.R2 
JSR PC,NXM 
RETURN 



{TEST "C" AND PROCEED 



2*: 
3$; 



MOV 
MOV 
CLR 
TST 

CMP 
BEQ 
ADD 
BR 

COM 

MOV 

RTI 

CLRVEC 

MOV 

TRAP 

TST 

BEQ 

SEC 

RTS 



02 $ , 804 

OPRI04,S)06 

R3 

CR1. N 

R1.R2 

3$ 

02, Rl 
II 

R3 

03i,(SP) 

04 

04 ,R0 
CiCVEC 
R3 
. >4 

PC 



j SET BUSERR VECTOR. 

jFLAG. 

j TEST THE ADDRESSCES). 

j IF ANY TRAP, CONTINUE AT 2%. 

j OTHERWISE, CONTINUE HERE. 

»BR IF FINISHED (NO NEXM'S). 

j SET NEXT ADDRESS. . . 

I . . .AND CONTINUE. 

jGOT ONE, SET FLAG. . . 

I...ANO DISMISS INTERRUPT... 
j... AND GIVE BACK THE VECTUR. 



{DID WE CATCH ONE ?? 

jNO. "C" - 0. SKIP NEXT. 

I YES, «C M - 1, (Rl) - NEXM ADQR. 



.SBTTL TSTLOOP - CHECK ITERATION COUNT 

! SUBROUTINE TO EXECUTE TEST ITERATIONS. 

i EXIT UITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 

, LOOP COUNTER IS SET BY "BEGIN. TEST' 1 MACRO, 



; CALL; LOOPTO ARG 



TSTLOOP 


» « 






TST 


NOITS 




BNE 


11 




TST 


QVP 




BMI 


11 




DEC 


LOOPCNT 




BNE 


2* 


11: 


n C 






BR 


3$ 


?ti 


SEC 




3$; 


RTS 


PC 



j ITERATIONS INHIBITED 

I YES. 

I NO. 

j LOOPS DISALLOWED IN QUICK PASS. 

\ BUMP LOOP COUNTER. 

jt.OOP DISALLOWED, OR DONE, 

lLOOP ENABLED. 



N7 
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TSTLOOP - CHECK ITERATION COUNT 



SEQ 0091 



2326 

2327 

2323 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2312 

2343 

2344 

2345 

2346 

2347 

2346 

2349 

2350 

2351 

2352 

2355 

2354 

2355 

2356 

2357 

2356 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 



2367 
2368 
2369 



2370 
2371 



23?" 



016500 
016500 
016502 
016506 
016512 
016516 
016522 
016526 
016530 
016534 
016536 
016L40 
016546 
016546 
016550 
016552 
016554 
016556 
016560 
016566 
016566 
016570 
016572 
016574 
016576 
016604 
016604 
016610 
0X6612 



010046 
005037 
005037 
005037 
105057 
013700 
006300 
005737 
001430 
100010 
052760 

104455 
0O0O01 
003734 
005732 
000407 
052760 

104455 
000002 
004331 
000000 
01273? 

013700 
104451 



.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG, 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TFSTS 
IN THE CURRENT RUN SEQUENCE. 
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



INPUT : 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT: 



R5 



003150 
016746 
005766 
016134 
002200 

003110 



160000 003172 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



j SAVE THE TEST ID MESSAGE 
I CLEAR "SOFT INIT" FLAG 
l CLEAR LOCAL ERROR COUNTER, 
j CLEAR ERROR EXTENSION FLAG. 
j CLEAR INTERRUPT MASK (CHECK ERROR) 
j GET THE UNIT NUMBER. 
» ... AND MAKE IT A WORD OFFSET. 
} DID STARTUP FIND THE DEVICE? 
; BR IF YES 
j BR IF NOT IDLE 
RO) j FLAG ERROR IN THE ERROR TABLE 
} NO DEVICE HERE — PRINT IT 



160001 003172 



1/7 77 7 003106 
002200 



TSTSETUP: : 




MOV 


RO.-CSP) 


CLR 


SIFLAG 


CLR 


ERRK 


CLR 


EXTA 


CLRB 


INTMASK 


MOV 


UNITN»RO 


ASL 


RO 


TST 


NODEV 


BEQ 


At 


BPL 


3$ 


BIS 


0160000, tRTABLC 


ERRDF 


l.NXR.NXRERR 


TRAP 


C*ERDF 


.WORD 


1 


.WORD 


NXR 


.WORD 


NXRERR 


BR 


2* 


3$: BIS 


0160001, ERTABLC 


ERRDF 


2,N01Nir 


TRAP 


C*ERDF 


.WORD 


2 


.WOPD 


NOINIT 


.WORD 





H$t MOV 


O-l.DUFLG 


DODU 


UN UN 


MOV 


UNITN.RO 


TRAP 


CJDQQU 


DOCLN 





RO) j FLAG ERROR IN THE LRRUR TABLE 
l DEVICE NOT IDLE 



i DROP THE UNI 



j ABORT THE PASS 



B8 
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016612 


104444 






TRAP 


CIDCLN 


2373 016614 


000423 






BR 


5$ 


2374 












2375 016616 






4*i 


RFLAGS 


RO 


OI60I6 


104421 






TRAP 


CIRFLA 


2376 016620 


032700 


001000 




BIT 


#PNT,RO 


2377 016624 


001412 






BEG 


11 


2378 016626 


011600 






MOV 


(SP),RO 


2579 016630 








PRINTF 


♦TNAM.RO 


016630 


01004b 






MOV 


RO.-CSP) 


016632 


012746 


016674 




MOV 


♦TNAM.-CSP) 


016656 


012746 


000002 




MOV 


♦2,-(SP) 


016642 


010600 






MOV 


5P.R0 


016644 


104417 






TRAP 


C»PNTF 


016646 


062^06 


000006 




ADD 


♦6.SP 


2380 016652 


005237 


002212 


11: 


INC 


TSTCNT 


2381 016656 








SETPRI 


IPRI 


016656 


013700 


002210 




MOV 


IPRX.RO 


016662 


104441 






TRAP 


CISPRI 


2382 016664 


005726 




5$: 


TST 


(SP)» 


2383 016666 


013705 


002204 




MOV 


CSRADDR.R5 


2384 016672 


000207 






RTS 


PC 


2385 016674 


045 


123 


045 TNAM: 


.ASCIZ 


'tiSJTM T«ft 


2386 








.EVEN 





SEU 0092 



I GET THE OPERATOR FLAGS. 

j PRINT THE TEST NUMBERS? 

I BR IF NO 

iGET THE 10 MESSAGE 

iDISPLAY THE TEST ID 



I BUMP TEST COUNTER. 
jPRIORITY THAT OF DEVICE 



jFIX UP THE STACK 

1 ADQR&SS OF TSV REGISTERS ON UNXBUS 
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Cb 



TSTENO 

2388 
2389 
2390 
2391 
2392 
2393 

2394 
2395 
2396 



2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2416 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 

2430 
2431 
24 32 

2433 



PRINT ERRORS RECEIVED 



SEQ 0093 



016710 
016710 
016712 
016716 
016720 
016720 
016724 
016730 
016734 
016736 
016740 
016744 

016746 
016750 

016767 



017034 
017040 
017042 
017046 
017050 
017054 
017056 
017062 
01/064 
017066 
017070 

017072 
017074 
017100 
017102 
017106 
017U2 
017116 
017120 
017126 
017130 
017130 
017132 
017136 
017140 
017146 
017146 
017150 
017152 



104421 
030027 
001412 

013746 
012746 
012746 
010600 
104417 
062706 
0O0207 

000000 
045 

105 



005237 
010046 
013700 
006300 
062700 
005210 
032710 
0010C1 
005310 
012600 
000207 

010046 
013700 
006300 
016000 
042700 
020037 
103004 
023737 
103417 

104421 
032700 
001013 
012737 

104455 
0OO004 
016767 



020000 



016746 
016750 
000002 



000006 



101 
122 



040 

122 



016746 
002200 
003172 
007777 



002200 

003172 
170000 

002172 

016746 002170 

000040 

177777 003106 



.SBTTL TSTENO 



PRINT ERRORS RECEIVED 



l AT ENO OF EACH 1EST, PRINT THE NUMBER OF ERRORS RECEIVED 
j IF NORMAL fiRROR REPORTING IS DISABLED (FLAsIER). 



TSTENOi 



$ 



RFLAGS 

TRAP 

BIT 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOD 

RT5 



j BR IF "IER" NOT SET. 
I PRINT ERROR COUNT, 



ERRKj 
ESUM; .ASCIZ 

EMAXDUs .ASCIZ 

.EVEN 



RO 

CIRFLA 
RO,#IEW 
II 

♦ESUM.ERRK 

ERRK.-CSP) 

*ESUM,-(SP) 

♦2.-CSP) 

SP.RO 

CIPNTF 

♦6.SP 

PC 



I LOCAL ERROR CO^IT . 
/*A #WA ERRORS/ 
/ERROR LIMIT REACHED •- DROPPING UNIT/ 



.SBTTL INCERK 



INCREMENT LOCAL ERROR COUNT 



I ROUTINES TO INCREMENT LOCAL ERROR COUNT ANO CHECK FOR LIMIT j 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER, 

... ANO MAKE IT A WORO OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW) THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

CET UNIT NUMBER 

... ANO MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRt 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

OR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR JF YES. 

NO *• DROP THE UNIT 



INCERK; 


INC 


ERRK , 




MOV 


RO.-(SP) i 




MOV 


UNITN.RO i 




ASL 


RO i 




ADD 


♦ERTABL.RO i 




INC 


(RO) i 




BIT 


•7777.CRO) i 




BNE 


1$ i 




DEC 


(RO) i 


Iti 


MOV 


(SP)*.RO i 




RTS 


PC j 


CKEMAX s 


MOV 


RO.-(SP) i 




MOV 


UNITN.RO j 




ASt 


RO i 




MOV 


ERTA8L(R0),R0 i 




BIC 


*) 70OOO.R0 j 




CMP 


RO.GERRMAX i 




BHIS 


1* 1 




CMP 


ERRK.LERRMAX i 




BLO 


21 i 


Hi 


RFLAGS 


RO i 




TRAP 


CIRFLA 




BIT 


OIDU.RO j 




BNE 


21 i 




MOV 


•-1.DUFLG i 




ERRD r 


4.EMAXDU 




TRAP 


CIERDF 




.WORD 


4 




*UURD 


EMAXUU 
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2454 



2435 

24 36 
2437 
2438 



017154 
017156 
017156 
017162 
017164 
f 17164 
117166 
017170 



000000 

013700 
104451 

104444 

012600 
000207 



002200 



2*! 



.WORD 





DODU 


UNITN 


nov 


UNITN.RO 


TRAP 


CI DODU 


DOCLN 




TRAP 


C»DCLN 


MOV 


(SP)*,RO 


RTS 


PC 



08 



SEQ 0094 



I RESTORE RO 

I RETURN TO CALLER 



E8 
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SEQ 0095 



2440 
2441 
2442 
2445 
2444 
2445 
2446 

244? 
2448 
2449 
2450 
2451 



2452 

2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 



017172 
017174 
017204 
017204 
017206 
0X7212 
017214 
017216 
017224 
017224 
017230 
017232 
017232 
017234 
017236 



017240 
017240 
017244 



010046 



104421 

032700 000040 

001010 

011600 

012737 177777 003106 

013700 002200 
104451 

104444 
012600 
000207 



.SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 

I CHECK IF UNIT SHOULD BE DROPPED 

J - 

CKDROP} MOV RO.-(SP) 

FORCERROR li.NOTSSR 

RFLAGS RO 

CIRFLA 

OIDU.RO 

1$ 

(SP).RO 

O-l.DUFLG 

UNITN 

UNITf4.R0 

CIDODU 



1* 



TRAP 

BIT 

BNE 

MOV 

MOV 

DOOU 

MOV 

TRAP 

DOCLN 

TRAP 

MOV 

RTS 



C*OCLN 
C liP ) » , RO 
PC 



j ABORT THE PASS 



.SBTTL CONFIG - OETERMINE CONFIGURATION OF SYSTEM 

t SUBROUTINE - DETERMINE CONFIGURATION OF TSV05 SYSTEM. 

i 



004737 015764 
000207 



CONFIG? 



JSR PC.SOFINIT 

RTS PC 



K"8 
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KTON.KTOFF 



24 70 
2471 
2472 
2473 
24 74 
2475 
2476 
2477 
24 78 
2479 



2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 



- ENABLE/DISABLE MEMORY MANAGEMENT 



SEQ 0096 



017246 005737 003126 

017252 001403 

017254 012737 000001 177572 

017262 000207 



017264 005737 003126 

017270 001405 

017272 000240 

017274 000240 

017276 012737 000000 177572 

017304 000207 



.SBTTL KTON.KTOFF 
j SUBROUTINE - ENABLE MEM MGT. 
KTON: 



1$: 



l SUBROUTINE - DISABLE MEM MGT. 



- ENABLE/DISABLE MEMORY MANAGEMENT 



TST 


KTFLG 


, GOT KT7 


BEQ 


1$ 


l NO. 


MOV 


*1,SR0 


i YES. ENABLE KT11. 


RTS 


PC 





KTOFF: 



1$: 



TST 
BEQ 
NOP 
NOP 
MOV 
RTS 



KTFLG 
1$ 



OO.SRO 

PC 



j GOT KT11? 
I NO, 



I DISABLE KT. 



G8 
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2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2317 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 
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SEQ 0097 



•SBTTL SETMAP - SETUP PAR6 MAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS j 



RO 
Rl 



OUTPUTS? 



017306 
017306 
017312 
017316 
017320 



017352 
017356 
017362 
017364 
017370 
017374 
017400 
017402 
017404 
017406 
017410 



SETMAP: 



005737 
001433 

010102 
000006 



042701 
020137 
103011 
010137 
042702 
062702 
010200 
000261 
000401 
000241 
Q00207 



003126 



000177 
003126 

172354 
160000 
140000 



10* 
151 



RO 
CARRY 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.ENOR 

BIC 

CMP 

BHIS 

MOV 

BIC 

ADO 

MOV 

SEC 

BR 

CLC 

RTS 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS CLE, THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



KTFLG 

10$ 

R1.R2 

6 

RO 

Rl 

♦177.R1 
Rl, KTFLG 
10$ 

Rl,S*KIPAR6 
0160000, R2 
0140000, R2 
R2.R0 

15$ 

PC 



jSAVE R1-R4 UNTIL NEXT RETURN 

I SYSTEM HAVE ABOVE 28K? 

I BR IF NO 

j SAVE LOW ORDER BITS 

I CONVERT WORD ADDRESS TO 32W BLOCKS 
jMAKE IT DOUBLE PRECISION 

j ALINE FOR LOWER 4K BOUNDARY 
, HIGHER THAN EXISTING MEMORY? 
I BR IF YES 

j SETUP MAPPING REGISTER PAR6 
i SETUP DISPLACEMENT IN PAGE 
I ADD IN PAR6 BIAS 
j RETURN IN RO 
j SET SUCCESS 

IsET FAILURE 
, RETURN 



H8 
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SEQ 0098 



2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 



017412 
017412 
017416 
017422 
017424 
017430 
017434 
017436 
017440 
017442 
017446 
017450 
017454 
017456 



017526 
017532 
017534 
017540 
01.7542 
017546 
017554 
017562 
017564 
017570 
017572 
017576 
017602 
017606 
017610 
017614 
017616 
017624 
017626 
017630 
017636 
017642 
017646 



004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001477 
004737 
005000 
013701 
000006 



004737 
J10320 
020027 
103774 
162 700 
062737 
023737 
001427 
005737 
001407 
013704 
042704 
022704 
001415 
005737 
001410 
023727 
103001 
000403 
012737 
000137 
004737 
000207 



017264 

003120 
003122 



003126 
017246 
003146 



017306 

160000 

020000 
000200 
172354 

003140 

177572 
177761 
000016 

003142 

172354 



000020 
017532 
017264 



.SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 

FILL MEMORY WITH P. BACKGROUND PATTERN 

INPUTS: 

RO - BACKGROUND PATTERN 

FREE - FlPfti LOCA'TCU AVAILABLE TO DIAGNOSTIC 

KTFLG * SET TO HT/iMEfr! MEMORY LOCATION IF > 28K, 



172354 
003126 



007600 



172516 



i OUTPUTS: 






NONE 




FILLMEM: 






SAVREG 






JSR 


PC.K70FF 




MOV 


R0.R3 




MOV 


FREE.R1 




MOV 


FRESU\R2 


10$: 


MOV 


R3,(fHV 




DEC 


R2 




BGT 


10$ 




TST 


KTFLG 




BEQ 


55 » 




JSR 


PC.KTON 




CLR 


RO 




MOV 


PST32W.P1 




.RFPT 


6 




CLC 






ROL 


Rl 




ROi. 


RO 




.ENOR 






JSR 


PC.SETMAP 


30$: 


MOV 


R3,(R0)» 




CMP 


RO, 0160000 




BLO 


30$ 




SUB 


020000, RO 




ADD 


*20o,a*KiPf;i6 




CMP 


B*KIPAR6,KT>'l..C, 




BEG 


50$ 




TSf 


V23A 




BEO 


35$ 




MCV 


L'rcO.F.** 




b;: 


V../.761.R4 




CMP 


< ;.6,R4 




BEt 


•;o* 


35$ 


TST 


T23B 




BEf 


45$ 




CMP 


Q0KIPAR6, 07600 




BHIS 


40$ 




BR 


45$ 


40$ 


MOV 


020.SR3 


45$ 


.,'*(* 


30$ 


50$ 


.. , .v r < 


PC.KTQFF 


55$ 


RTS 


PC 



.SAVE R1-R5 UNTIL NEXT RETURN 

jOlSABLE KT. 

i COPY TEST PATTERN 

»GET FIRST FREE LOCATION 

j SIZE OF FREE SPACE BELOW 28K. 

I STORE A BACKGROUNO WORD 

,OONE ALL MEMORY IN FREE SPACE? 

i BR IF NO 

j GOT KT? 

i NO. GET OUT. 

I 1ES. ENABLE KT. 

I HIGH ORDER ADDRESS START 

iGET >28K START ADDRESS CIN 32W BLOCKS) 

(CLEAR C BIT 

i CONVERT BLOCKS TO WORDS 
iMAKL IT DOUBLE PRECISION 

iSCfiV PAR6 MAPPING REGISTER 
|5W: TEST PATTERN IN >28K ADDRESS 
iF.KV Of PAR6 MAPPING AREA? 

,RR v f NO 



MAPPING BEGIN 
BLOCK >28K. 



i&ACk'JP INTO PAR6 

l^OUT TO NEXT 4K 

\&*:* •*' MEMORY? 

i^P IF YFS 

i'.'./23A7 

iNO KEEP <»OING 

,f>ET SRC CONTENTS 

iC-.*.*P ALL F?UT PAGE NUMBER 

jSfcu it- I'-.-ViE 7 

•-.YIT IF fHERE 

. jX/2i9? 

ih'} KtfEP GC::«G 

:MCACHr"C JO BITS? 

$'FS 

I NO KEEP GOING 

i SET 22 RIT RELOCATION 

j KEEP GOING ON ETC. 

j DISABLE KY, 



18 
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CMPMEM 



COMPARE MEMORY TO BACKGROUND PATTERN 



SEQ 0099 



2591 








2592 








2593 








2594 








2595 








2596 








2597 








2598 








2599 








2600 








2601 








2602 








2603 








2604 








2605 








2606 








2607 








2608 








2609 








2610 








2611 








2612 








2613 


017650 






2614 


017650 






2615 


017654 


010003 




2616 


Ui7656 


004737 


017264 


2617 


017662 


013701 


003120 


2618 


017666 


013702 


003122 


2619 


017672 


020311 




2620 


017674 


001411 




2621 


017676 


010137 


002236 


2622 


017702 


005037 


002234 


2623 


017706 


010337 


002230 


2624 


017712 


011137 


002232 


2625 


017716 


0004 74 




2626 


017720 


005721 




2627 


017722 


005302 




2628 


017724 


003362 




2629 


017726 


005737 


003126 


2630 


017732 


001472 




2631 


017734 


004737 


017246 


2632 


017740 


OO50OO 




2633 


017742 


013701 


003146 


2634 




000006 




2635 








2636 








2637 








2638 


C17776 


042701 


000177 


2639 


020002 


010046 




2640 


020004 


010146 




2641 


020006 


004737 


017306 


2642 


020012 


010004 




264 3 


020014 


012601 




2644 


020016 


012600 




2645 


020020 


020314 




2646 


020022 


0014U 




2647 


080024 


010037 


002234 



.SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 

COMPARE MEMORY WITH A BACKGROUND PATTERN 

INPUTS: 

RO ■ C.;CK~ROUNO PATTERN 

FREE - flRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTR C * SET TO HIGHEST MEMORY LOCATION IF > 28K . 



OUTPUTS: 



CM'RY 
CAkRY 



S.f.T 



IF 
IF 



NO ERROR 
ERROR 



IMPLICIT Ul'^Ur:: 



CMPMEM j 



10$ 



15$ 



30$ 



ERRh/ 

ERRLO 

EXPO 

RECV 



SAVREc 

MOV 

JSR 

MOV 

MOV 

CMP 

BEQ 

MOV 

CLR 

MOV 

MOV 

BR 

TST 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.REPT 

ROL 

MOL 

.tNOR 

BIC 

MOV 

MOV 

JSR 

MOV 

MOV 

MOV 

CMP 

BEQ 

MOV 



- ERfTfl HIGH ADDRESS 

- ERF.uR LOW ADDRESS 

- EXPECTED DATA 

- RECEIVED DATA 



tO,R3 

PC ."TOFF 

FWKt.Ri 

F*ESIZ,R2 

-3,(R1) 

.5$ 

Rl, ERRLO 

ERRHI 

R3.EXPD 

(Rl).RECV 

50* 

(Rl)» 
R2 

10$ 

KTTLG 

55$ 

PC.KTON 

RO 

PST32W.R1 

6 

Rl 

RO 

«177,R1 
RO.-(SP) 
Rl (SP) 

PC, SETMAP 

R0.R4 

(SP)*.R1 

(SP) .RO 

R3,(R4) 

32$ 

RO, ERRHI 



SAVE R1-R5 UWTIL NEXf RETURN 

COPt TEST PATTERN 

DISABLE KT, 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28k. 

FREE SPACE LOCATION EQUAL TO EXPD? 

BR IF YES 

SAVE ADDRESS IN ERROR 

NO HIGH ADDRESS 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FO* ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32W BLOCKS) 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNOARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPD? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 



J8 
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CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 

264* 020030 010137 002236 

264', 020034 010337 002230 

2650 020040 011437 002232 

2651 020044 00O421 

2652 020046 062701 000002 32$: 

2653 020052 005500 

2654 020054 062704 000002 

2655 020060 020427 160000 

2656 020064 103755 

2657 020O66 162704 020000 

2656 020072 062737 000200 172354 

2659 020100 023737 172354 003126 

2660 020106 101744 

2661 020110 004737 017264 50$: 

2662 020114 000241 

2663 020116 000403 

2664 020120 004737 017264 55$: 

2665 020124 000261 

2666 020126 000207 60$: 
2667 



i9:44 


PAGE. 61-1 


MOV 


Rl.ERRLO 


MOV 


R3.EXPD 


MOV 


(R4),RECV 


BR 


50$ 


ADD 


02, Rl 


ADC 


RO 


ADD 


02, R4 


CMP 


R4, 0160000 


BLO 


30$ 


SUB 


020000, R4 


ADD 


020O.SOKIPAR6 


CMP 


S0KIPAR6,KTFLG 


BLOS 


30$ 


JSR 


PC. K TOFF 


CLC 




BR 


60$ 


JSR 


PC, K TOFF 


SEC 




RTS 


PC 



SEQ 0100 



I SAVE LOW ORDER IN ERROR 

i SAVE EXPD FOR ERROR REPORT 

I SAVE RECV FOR ERROR REPORT 

J 

I UPDATE NON PAR6 ADDRESS 

jMAKE IT DOUBLE PRECISION ADD 

i UPDATE PAR FORMAT ADDRESS 

tENO OF PAR6 MAPPING AREA? 

j BR IF NO 

{BACKUP INTO PAR6 MAPPING BEGIN 

j POINT TO NEXT 4I< BLOCK >28K, 

lENO OF MEMORY? 

I BR IF NO 

jTURN OFF MEMORY MAPPING 

j SET FAILURE 

j TURN OFF MEMORY MAPPING 
j SET SUCCESS 



I<8 



TSV3 - GLOBAL AREAS 



MACRO M1200 23-MAR-84 09;44 PAGE 62 



REGSAV 

2669 

26 70 

2671 

26?2 

2673 

26 74 

2675 

2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

2684 

2685 

2686 

268 7 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2 702 

2703 



SAVE R1-R5 ON STACK 



SEQ 0101 



020130 
020130 
020132 
020154 
020136 
020140 
020142 
020146 
020150 
020152 
0201S4 
020156 
020160 
020162 



010446 
010346 
010246 
010146 
010546 
016605 
004736 
012601 
012602 
012603 
012604 
012605 
000207 



000012 



.SBTTL REGSAV - SAVE R1-R5 ON STACK 



i * 



jROUTINE TO 

{ SAVE Rl THROUGH R5 ON THE STACK 

{CALLING SEQUENCE: 

} JSR R5, REGSAV 

{THIS IS A COOROUTINE UHICH TRANSFER CONTROL BACK TO 
j THE CALLING ROUTINE. AT THE END Of THE CALLING ROUTINE, 
I THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
{REGISTERS. 

!THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
{CALLED VIA A JSR PC INSTRUCTION 



{ 
{ - 




REGSAV: 




MOV 


R4.-CSP) 


MOV 


R3.-CSP) 


MOV 


R2.-CSP) 


MOV 


Rl.-(SP) 


MOV 


R5.-CSP) 


MOV 


10.(SP\R5 


JSR 


PC.QCSP)* 


MOV 


(SP)*,R1 


MOV 


(SP)*.R2 


MOV 


(SP)» ,R3 


MOV 


(SP).,R4 


MOV 


(SP)».R5 


RTS 


PC 



L8 
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SEQ 0102 



2 70S 
2706 
270/ 
2708 
2709 
2710 
27U 
2712 
2/13 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 

2722 
2723 
2724 
2725 
2726 



2727 

2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
'dill 



02^1 f-* 
02C164 

020170 
020170 
020172 
020174 
020176 
020200 
020202 
020204 
020206 
020210 
020210 
020210 
020212 
020216 



020220 
020222 



104443 
000406 
020220 
000022 
020222 
000377 
000000 
000377 



103367 

013700 020220 

000207 



.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 

♦ 

ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
CALLING SEQUENCE: 

JSR PC, GETPAT 



GETPAT j 
1$: 



10000* 



SAVREG j SAVE THE GENERAL REGISTERS 

GMANID DATASC, PATDAT, 0,377, 0,377, NO 

TRAP OGMAN 

BR 10000$ 

.WORD PATDAT 

.WORD TICOOF. 

.WORD OATAC-C 

.WORD 377 

.WORD TJLOLIM 

.UORO T$HILIM 



BNCOMPLETE 1$ 
BCC 1$ 
MOV PATDAT, RO 
RTS PC 



{RETRY IF ERROR 

j DATA PATTERN FROM OPERATOR 
j RETURN TO CALLER 



000000 
105 



116 



124 



i LOCAL DATA AREA 

i - 

PATDAT; .UORD 
DATASC: ,ASCIZ 
♦ EVEN 



j TEMPORARY STORAGE FOR DATA 

•ENTER DATA PATTERN* 



M8 
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GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



SEQ 0103 



2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
274ft 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 



2763 
2764 



2765 

2766 
2767 
2768 
2769 



2 7 70 
2771 
27 72 
2 7 73 
2774 



020246 

020246 

020252 

020254 

020256 

020260 

020262 

020262 

020264 

020270 

020274 

020276 

020300 

020304 

020306 

020306 

020310 

020312 

020314 

020316 

020320 

020322 

020324 

020326 

020326 

020326 

020330 

020334 

020336 

020340 

020340 

020344 

020350 

020352 

020354 

020360 

020362 

020364 

0204 32 

020457 



010002 
010203 
005713 
001412 

012346 
012746 
012746 
010600 
104417 
062706 
000764 

104443 
0O0406 

020466 
000042 
02043/ 
177777 
000000 
177777 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

OOQ20 7 

045 

045 

lOti 



.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



ROUTINE TO ISSUE A MENU AND GET 
THE OPFRATOR'S RESPONSE. 



INPUTS: 



RO 

Rl 



OUTPUTS : 



i - 



GETSEL} 



1$ 
2$ 



020432 
000002 



000006 



3* 



10001$ 



020466 



020364 
000001 



000004 



116 
116 
156 



5$: 
045 MENERR 
045 Sfcl.ASC 
164 M&NASC 



RO 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

GMANID 

TRAP 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



ADDRESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



R0.R2 
R2.R3 
(R3) 
3$ 

0SELASC.CR3)* 
CR3)*.-(SP) 

OSELASC. -CSP) 

02,-CSP) 

SP.RO 

C$PNTF 

*6,SP 

2* 

MENASC, MENRES ,D, -1,0,-1, NO 

CIGMAN 

10001 t 

MENRES 

TtCOOE 

MRNASC 

-1 

TiLOLIM 

TIHILIM 



j SAVE GENERAL REGISTERS 

tSAVE THE MENU ADDRESS 

j START OF MENU STRING 

t END OF ASCII ? 

j BRANCH IF ALL LINES DISPLAYED 

I DISPLAY THE MENU 



BNCOMPLETE 

BCC 

MOV 

CMP 

BLOS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

RTS 

.ASCIZ 

, ASCIZ 

, ASCIZ 



1* 



j RETRY IF ERROR 



It 

MENRES, RO 

R0,R1 

51 

OMENERR 

OTENERR.-CSP) 

01. -CSP) 

SP.RO 

CIPNTF 

04, SP 

It 

PC 

'*N*A ♦♦+ Menu 

**N*T' 

'Enter Menu Select! on i 



I GET TtJ F OPERATOR'S 
l COMPAQ TO MAXIMUM 
I BRANCH IF OK 
j DISPLAY ERROR MESSAGE 



REPLY 
ALLOWED 



jRETRY 

jRETURN 
Select ion 



TO CALLER 
Tqq Large ***' 



N8 
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GEQ 0104 
GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 

£775 .EVEN 

2776 020466 000000 MENRESj ,WURD 



B9 
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CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 



SEQ 0105 



2778 
27 79 
2780 
2761 
2782 
2783 
2784 
278S 
2786 
2787 
2788 
2789 
2790 
2/91 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2600 
2601 
2802 

2803 

2804 



2605 
2806 
2807 
2608 
2809 



0204 70 
0204 70 
020474 
020474 
020476 
0204 76 
020500 
020500 
020504 
020510 
020512 
020514 
020520 
020522 

020b24 



■SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 

* 

ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY, 
INPUT t 

NONE. 
OUTPUT; 



CARRY 
1 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



SIDE EFFECTS} 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED, 



CHKMAN 



104450 

103411 

012746 020524 

012746 000001 

010600 

104417 

062706 000004 

000241 

000207 



045 



116 



045 





SAVREG 






MANUAL 






TRAP 


CIMANI 




BCOMPLETE 11 




BCS 


11 




PRINTF 


•WOMAN 




MOV 


•WOMAN, -(SP) 




MOV 


• l.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


•4.SP 




CLC 




Mi 


RTS 


PC 


NOMANj 


.ASCI* 


J *M*A *4* Ma 



i SAVE THE REGISTERS 

I SEE IF MANUAL INTERVENTION OK 

, BRANCH IF ALLOWED 

jPRINT THE WARNING MESSAGE 



iCLEAR CARRr FOR ERROR 
I RE TURN 

4 *M*A *4* Manga! Xrtt<?rv*r\tion not AUowtd - T«»t Aborted ***' 
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C9 



ENVIRN • SETUP FREE DIAGNOSTIC SPACE 



2811 
2812 
2813 
2814 
2815 



SEQ 0106 



2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
282 7 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
28 3f 
2837 
2836 
2839 
2840 
2841 
2842 
2843 
2844 
2845 



2846 
284 7 
2848 
2849 



2850 

2851 



020620 
020620 
020622 
020626 
020634 
020640 
020646 
020652 
020660 
020662 
020664 
020670 
020674 
020700 
020704 

020706 
020712 
020714 
020720 
020724 
020726 
020 730 
020734 
020740 
020744 
020746 
020752 
020754 
020756 
020762 
020770 
020772 
020772 
020776 
021002 
021004 
021006 
021012 
021014 
021020 
021022 
021022 
021026 
021032 
021034 
021036 
021042 



104431 
010037 
062737 
011037 
16273? 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000240 
012701 
010102 
062702 
004737 
103001 
000445 
013701 
062701 
012702 
005212 
013703 
020103 
001017 
005237 
042737 
000240 

012746 
012746 
010600 
104417 
062706 
000413 
005237 
000240 

012746 
012746 
010600 
104417 

062706 

000207 



.SBTTL ENVIRN - SETUP TREE DIAGNOSTIC SPACE 
I SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
ENVIRN j 



003120 

000002 003120 

003122 

000004 003122 

002012 

000007 003122 



003120 
003122 
000002 
003124 

177520 

000002 
016366 



10*} 



177520 
000001 

177520 

177520 



003140 

170000 002120 



005550 

000001 



000004 
003142 



005641 
000001 



000004 



15$; 



201; 



401 1 



MEMORY 


RO 




TRAP 


C*MEM 




MOV 


RO,FREE 


j GET 1ST FREE ADDRESS.., 


ADD 


02, FREE 




MOV 


(RO) # FRESIZ 


1 . . .AND WORD COUNT. 


sue 


♦4.FRESIZ 




MOV 


L$UNIY,R2 


t GET NUMBER OF LNITS 


SUB 


♦7.FRE5IZ 


j TAKE AWAY 7 WORDS PER UNIT 


DEC 


R2 




BNE 


101 




MOV 


FREE.RO 


iGET FIRST FREE ADDRESS 


ADD 


FRESIZ.RO 


l POINT TO LAST FREE ADORESS 


SUB 


♦2.R0 


i BACKUP 1 WORD 


MOV 


RO.FREEHl 


l STORE LAST FREE ADDRESS 


NOP 






MOV 


♦6DVPCR.R1 


iGET BDV11 PCR ADDRESS 


MOV 


R1,R2 


iCOPY TO R2 


ADO 


♦2.R2 


iSET THE RANG* 


JSR 


PC , XNXM 


iSEE IF WE HAVE ONE 


BCC 


15$ 


tOK TO SET FLAGS 


BR 


401 


I RE TURN WITH FLAGS CLEAR 


MOV 


BDVPCR.R1 


jSAVE PCR CONTENTS 


ADD 


♦1.R1 


lADO ONE TO IT 


MOV 


•BDVPCR.R2 


iGET BDVll PCR ADDRESS 


INC 


(R2) 


,TRY TO WRITE TO IT 


MOV 


BDVPCR.R3 


»GET RESULTS 


CMP 


R1.R3 


iDID IT CHANGE? 


BNE 


20$ 


jNO, njSl BE 11/236 


INC 


T23A 


jSET THE FLAG 


PIC 


0170000, LIHIME 


iSL^ERVISOR COULD BE WftONG 


NOP 




iBR 40$ TOR RELEASE 


PRINTF 


♦H8166 


jTELL THE SYSTEM TYPE 


MOV 


*M8186,-(SP) 




MOV 


♦1,-CSP) 




MOV 


SP.RO 




TRAP 


ClPNTF 




ADD 


♦4.SP 




BR 


40$ 


iRETURN 


INC 


T23B 


iSET THE FLAG 


NOP 




iBR 40$ FOR RELEASE 


PRINTF 


*M8189 


jTELL THE SYSTEM TYPE 


MOV 


♦M8189.-CSP) 




MOV 


•l.-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


#4,SP 




RTS 


PC 


iRETURN 



+ + * + **** + ** + **. 



D9 
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SE(J 0107 



2653 
2854 
2855 
2856 
2857 
2858 
2859 
20bO 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 



021044 
021044 
021050 
021054 
021062 
021064 
021070 
021076 
021102 
021104 
021112 
021120 
021124 
021126 
021132 
021140 
021142 
021146 
021152 
021154 
021160 

021162 
021166 

021170 

021174 



005037 
005037 
023727 
101444 
013700 
012737 
005737 
0O0240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000405 

012716 
000002 

010037 
000207 



003126 
003130 
002120 

000004 
021162 

177572 

002120 
000177 
000004 

172340 
077406 

000200 

002000 

177600 



021170 
000004 



.SBTTL KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 
ROUTINE TO INIT KT-11 



001577 



000004 



003126 
003126 



177740 



KTINIT: 










CLR 


KTFLG | 


INIT >28K MEMORY FLAG 




CLR 


KTENABLE j 


INIT TEST >28K FLAG 




CMP 


LIHIME, 01577 i 


GOT ENOUGH MEMORY (>28tO? 




BLOS 


9$ | 


NO. 




MOV 


SOERRVEC.RO 


SAVE OLO ERR VEC PTR, 




MOV 


*2I.6W>ERRVEC 


SET ERR VEC PTR. 




TST 


80SR0 


GOT KTU? 




NOP 




(TRAP IF NO). 




MOV 


LIHT.ME, KTFLG 


YES, SET KT FLAG. 




BIC 


♦177, KTFLG \ 






MOV 


RO.BOERRVEC 


RESTORE OLD ERR VEC PTR. 




CLR 


RO 


RO - AR DATA. 




MOV 


♦KIPAR0.R1 


Rl - KI REGS PTR. 


11: 


MOV 


♦77406, -40CR1) 


SET DESCRIPTOR REG. 




MOV 


R0.CR1)* 


SET KIPAR REG. 




ADO 


♦200.R0 


BLA1P AR DATA BY "4K". 




CMP 


RO , 02000 


1 AT "I/O"? 




BNE 


11 


NO. 




MOV 


♦ 177600, -CRD 


; YES. SET KTPAR7 FOR I/O. 




BR 


9* 




2$: 


MOV 


*6*,(SP) 


, SET UP RETURN 




RTI 




l RTI TO NEXT LOCATION 


6$: 


MOV 


RO.80ERRVEC 


l RESTORE OLD ERR VEC PTR. 


9*i 


RTS 


PC 





E9 
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SEQ 0108 



2890 










I * 










2891 










i SUBROUTINE TO SET EXTENDED FEATURES SWITCH 




2892 




















2893 










i Require© that SOFINIT and WRTCHR have been done previous to call. 




2894 




















2895 




















2896 










i INPUT St 










2897 










j R5 


CURRENT UNIT NUMBER 






2898 










i OUTPUTS: 










2899 










j The Ex 


tended Features Sv* 


li ten 


is set. 




2900 




















2901 










i - 










2902 




















2903 


021176 








INVERT:: 










2904 




















2905 


021176 


005737 


002224 




TST 


EXTFEA 




i IS SWITCH SET? 




2906 


021202 


001020 






BNE 


1$ 




j YES, EXIT STAGE RIGHTKor the next 


one outa town!) 


2907 


021204 


012737 


100206 


021250 


MOV 


♦100206, CMOPKT 




l WRT SUB-SYS MEM CMD 




2908 


021212 


012737 


021260 


021252 


MOV 


♦WSMBK. CMOPKT* 2 




t MSG BUT ADDR 




2909 


021220 


012737 


000006 


021256 


MOV 


06, CMOPKT *6 




{ BYTE COUNT 




2910 


021226 


012737 


100010 


021260 


MOV 


0100010, WSMBK 




, INVERT THE SWITCH 




2911 


021234 


012704 


021250 




MOV 


0CMDPKT.R4 




I SET CMOPKT INTO R4 




2912 


021240 


004737 


010652 




JSR 


PC, WRTCHR 




I DO IT 




2913 


021244 


000207 






1$: RTS 


PC 




; RETURN 




2914 




















2915 




















2916 










j COMMAND PACKET. 








2917 




















2918 




021250 






* 


<.*3>6177774 


>MUST BE ON MOD 4 BOUNDRY. 




2919 




















2920 


021250 


000000 






CMOPKT:: 




llST 


WORD IS TS05 COMMAND. 




2921 


021252 


000000 











i2N0 


WORD IS THE BUFFER LOW ADDRESS. 




2922 


021254 


000000 











j 3RD 


WORD IS THE BUFFER HIGH ADDRESS. 




2923 


021256 


000000 











|4TH 


WORD IS THE BYTE/RECORD/FILE COUNT. 




2924 




















2925 




















2926 










1 WRITE 


SUB-SYSTEM MEMORY 


CHARACTERISTIC BLOCK. 




2927 




















2928 


021260 


000000 






WSMBKj j 




»1ST 


WORD;: SEL 




2929 


021262 


oooooo 











j 2ND 


WORD:: SEL 2 




2930 


021264 


000000 











j 3RD 


WORD:: SEL 4 




2931 










.EVEN 










2932 





















F9 
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SEQ 0109 



2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 



2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 



021266 

021266 
021272 
021276 
021302 
021306 
021312 
021314 
021322 
021324 
021330 
021332 
021336 
021340 
021346 
021350 
021356 
021360 
021364 
021366 
021374 
021376 
021402 
021410 
021414 
021416 
021420 
021420 
021424 
021430 
021432 
021434 
021440 



021442 
021446 
021452 
021456 



005037 
005037 
005037 
005737 
00140^ 
023727 
103406 
004737 
000427 
005737 
00X41" 
023727 
101023 
023727 
103403 
004737 
0004H 
023727 
103410 
004737 
062737 
005237 
0OO411 
000410 

012746 
012746 
010600 
104417 
062706 
000207 



003132 
003134 
003136 
003142 

002120 

021442 

003140 

002120 

002120 

021442 

002120 

021442 
000077 
003132 



005454 

000001 



000004 



013701 002120 

062701 000200 

042701 000177 
010102 



SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 



INPUTS: 
OUTPUTS: 

The NXMFLG !s s«t J f w* can test. 

The NXMLO and NXMHI addresses are setup. 



MEMCKs 5 



007777 



005777 
003777 

001577 
003136 



1$: 
2$: 



4$: 

13$: 

14$: 



15$: 



SAVREG 

CLR 

CLR 

CLR 

TST 

BEQ 

CMP 

BLO 

JSR 

BR 

TST 

BEQ 

CMP 

BHI 

CMP 

BLO 

JSR 

BR 

CMP 

BLO 

JSR 

ADO 

INC 

BR 

BR 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADO 

RTS 



NXMFLG 

NXMLO 

NXMHI 

T23B 

1$ 

L$HIME, 07777 

2$ 

PCNXMTST 

13$ 

T23A 

4$ 

L$HIME, 05777 

14$ 

L$HIME, 03777 

4$ 

PCNXMTST 

13$ 

L$HIME, 01577 

1*$ 

PCNXMTST 

077, NXMHI 

NXMFLG 

15$ 

15$ 

ONOMEM 

ONOMEM.-(SP) 

•l.-CSP) 

SP.RO 

C$PNTF 

04, SP 

PC 



SAVE THE REGISTERS 

CLEAR THE FLAG 

CLEAR THE TEST ADDRESS LO 

CLEAR THE TEST ADDRESS HI 

IS IT A 11/236? 

NO 

GREATER THAN 128K 

NO 
SETUP THE ADDRESS 
SET THE FLAG AND EXIT 
IS IT A 11/23A? 
NO 

GREATER THAN 96K 
YES,23A/238 WITH 128K MEMORY 
GREATER THAN 64K BUT LESS THAN 92K? 
NO, CHECK 24K 
SETUP THE ADDRESS 
SET THE FLAG AND EXIT 
GREATER THAN 24K BUT LESS THAN 64K? 
NO, TELL THEM AND EXIT WITH FLAG CLEAR 
SETUP THE ADDRESS 
FOOL THE 11/02 6 11/03 
SET THE FLAG 
EXIT 

NOP FOR PRINTOUT 
TELL THEM 6 EXIT **+N0 PRINT***** 



I RETURN 



SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
OUTPUTS: NXMLO, NXMHI j SETUP WITH NXM ADDRESS 



NXMTSTj MOV 


L$HIME.R1 


ADO 


0200, PI 


BIC 


0177. Rl 


MOV 


R1.R2 



j GET TOP OF MEMORY 

I MAKE IT I/O BLOCK OR OTHER NXM 

iRESAVE RESULTS 



G9 
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2986 

2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 



021536 



000006 



021474 010137 003134 
000012 



021524 042702 177700 
021530 010237 003136 
021534 000207 



.REPT 


6 


ASL 


Rl 


.ENOR 




MOV 


Rl.NXMLO 


.REPT 


10, 


ASR 


R2 


.ENOR 




BIC 


0177700, R2 


MOV 


R2.NXMHI 


RTS 


PC 



SEQ 0110 



{PUT IN PLACE FOR XFER 

iSAVE TEST ADDRESS LOW 

j PUT IN PLACE FOR XFER 

I DON'T WANT ILA! 

{SAVE TEST ADDRESS HIGH 

j RETURN 



ENDMOD 



1-19 
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SEQ 0111 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 

7 .TITLE TSV4 - MISCELLANEOUS SECTIONS 

8 

9 021536 BGNMOD TSV4 

021536 TSV4:s 

10 
16 



TSV4 - MISCELLANEOUS SECTIONS 
PROTECTION TABLE 



MACRO M1200 23-MAR-84 09:44 



19 

PAGE 72 



18 

19 021536 
021536 

20 021536 

21 021546 
22 



177777 177777 177777 



L*PROT;: 



.SBTTL PROTECTION TABLE 
BGNPROT 



.WORD 
ENDPROT 



-1. -1. -1, -1 



SEQ 0112 



i NO DEVICE PROTECTION REQUIRED 



TSV4 MISCELLANEOUS SECTIONS 

INITIALIZE SECTION 



24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 021546 
021546 

38 

39 021546 
021546 
021552 
021556 
021562 
021566 
021570 

40 

41 021574 

42 021600 

43 021604 

44 0? '12 

45 02 16 

46 02 x 22 

47 021626 
021626 
021632 

48 021634 
021634 

49 021636 

50 021644 



J9 
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SEQ 0113 



5i 021646 

52 021652 

53 021654 

54 021660 

55 021662 

56 021666 
5 J|21670 
50 021676 



59 



60 



61 
62 



$5 



021700 
021700 
021702 

021704 
021704 
021710 
021712 
021712 
021714 
021714 
021720 
021722 



012746 
012746 
012746 
012746 
104437 
062706 

005037 
005037 

012737 
005037 
005037 
005037 

012700 
104447 

103023 
023737 
103070 
005737 
10O472 
013701 
006301 
005761 
001516 
032761 
001060 

104432 
000416 

012700 
104447 

103052 

012700 
104447 



.SBTTL INITIALIZE SECTION 

JthE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
j AT THE BEGINNING OF EACH PASS. 

j IF "START" OR "RESTART", SET QUICK -PASS FLAG AND BUS -INIT. 
I IF "CONTINUE", NOTHING IS REQUIRED. 



000340 
170000 
000140 
000003 

000010 

002224 

003132 

006354 002176 

003150 

003130 

002300 

000036 

002200 002012 

003106 

002200 

003172 

040000 003172 



000035 



000040 



l - - 

1 ♦ 




j INSERT TEMPORARY JUMP TO ODT 


BGNINIT 




LJINIT:: 




SETVEC 


0140, 4170000, 0340 


MOV 


4340, -(5P) 


MOV 


#170000, -CSP) 


MOV 


#140, -CSP) 


MOV 


03,-CSP) 


TRAP 


CiSVEC 


ADD 


010, SP 


401 i CLR 


EXTFEA 


CLR 


NXMFLG 


MOV 


0EPRT1.EPRTSW 


CLR 


SIFLAG 


CLR 


KTENABLE 


CLR 


RAMSIZ 


READEF 


OEF. CONTINUE 


MOV 


OEF. CONTINUE, RO 


TRAP 


CIREFG 


BNCOMPLETE 1$ 


BCC 


11 


CMP 


LNITN,L*UNIT 


BHIS 


41 


1ST 


OUFLG 


BMI 


NXTU 


MOV 


UNITN,R1 


ASL 


Rl 


TST 


ERTABLCR* ) 


BEQ 


SETU 


BIT 


#6IT14.ERTABL(Rn 


BNE 


NXTU 


EXIT 


INIT 


TRAP 


CIEXIT 


.UORD 


L 10030 -. 


Ui READEF 


OEF, NEW 


MOV 


OEF.NEW.RO 


TRAP 


CIRF'FG 


BNCOMPLETE NXTU 


BCC 


NXTU 


REAOEF 


OEF, START 


MOV 


OEF. START »R0 


TRAP 


CIREFG 


BCQUPLETE 2$ 



j ODT ROM ADDRESS 



;JB REV A-0 



I SET UP PRIMARY MESSAGt FOR REPLACEMENT 

{CLEAR "SOFT INIT" FLAG 

j CLEAR TEST ABOVE 28K FLAG 

t CLEAR RAM SIZE FOR RAMERR ROUTINE 



jUNIT IN RANGE? 
jBR IF NO. 
j DROPPED UNIT? 
jBR IF YES 



j DROPPED? 

{DO NOTHING IF "CONTINUE" 



I TAKE NEXT UNIT IF* NOT NEW PASS* 



I<9 
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5EO 0114 



021722 


103404 






ocs 


2$ 


64 021724 








READEF 


OEF. RESTART 


021724 


012700 


000037 




MOV 


OEF. RESTART.RO 


021730 


104447 






TRAP 


C*REFG 


65 021732 








BNCOMPLEfE 31$ 


021732 


103031 






8CC 


31$ 


66 021734 






2$: 






67 021734 








BRESET 




021734 


104433 






TRAP 


C$RESET 


68 021736 


005037 


002212 




CLR 


TSTCNT 


69 021742 


005037 


002220 




CLR 


FATFLG 


70 021746 


005037 


003140 




CLR 


T23A 


71 021752 


005037 


003142 




CLR 


T23B 


72 






i 


MOV 


0340, -(SP) 


73 






I 


MOV 


020$, -(SP) 


74 






t 


JMP 


O.ODT 


75 021756 


005037 


003374 




CLR 


SKIPT 


76 021762 






20$: 






77 021762 


012737 


177777 002202 




MOV 


0-1, QVP 


78 021770 


004737 


020620 




J3R 


PCENVIRN 


79 021774 


004737 


021044 




JSR 


PC.KTINIT 


80 022000 


012700 


003172 




MOV 


OERTABL.RO 


81 022004 


005020 




30$: 


CLR 


CRO)* 


82 022006 


020027 


003372 




CMP 


RO.OERTABE 


83 022012 


103774 






BLO 


30$ 


84 022014 


000404 






BR 


4$ 


85 022016 


005037 


002202 


3l$s 


CLR 


QVP 


86 022022 

87 

88 022026 


000137 


022072 




JMP 


PASRPT 






4$: 






89 022026 


012737 


17777 7 002200 


NEWPAS: 


MOV 


0-1.UNITN 


90 022034 


O05037 


002216 




CLR 


DEVCNT 


91 022040 






NXTU: 


BREAK 




022040 


104422 






TRAP 


C$BRK 


92 022042 


005237 


002200 




INC 


UNITN 


93 022046 


023737 


002200 002012 




CMP 


UNITN,L$UNIT 


94 022054 


103423 






BLO 


SETU 


95 022056 


012737 


177777 003)06 




MOV 


O-l.DUFLG 


96 022064 


000401 






BR 


11$ 


97 022066 








DOCLN 




022066 


104444 






TRAP 


C$DCLN 


98 022070 


000240 




11$: 


NOP 




99 022072 






PASRPTj 






100 022072 


023727 


002012 000001 




CMP 


L$UNIT,01 


101 022100 


101752 






BLOS 


NEWPAS 


102 022102 


005737 


002216 




TST 


DEVCNT 


103 022106 


00174 7 






BEQ 


NEWPAS 


104 022110 








RFLAGS 


RO 


022110 


104421 






TRAP 


ClRFLA 


105 022112 


03?700 


oooioo 




BIT 


0IS9.R0 


106 022116 


001343 






BNE 


NEWPAS 


107 












108 022120 








DORPT 




022120 


104424 






TRAP 


CIDRPT 


109 022122 


000741 






BR 


NEWPAS 


110 022124 






10$ t 






111 













1 1ST PASS, BUS-INIT... 
jBUS RESET. 

I NUMBER OF TESTS RUN IN PASS 
j CLEAR FATAL ERROR COUNT 
j CLEAR 11/23A FLAG 
{CLEAR 11/23B FLAG 

{RETURN TO DEBUGGER 
t iSSENTER THE DEBUGGER 
j CLEAR THE SUBTEST "SKIPPER" 

l ...QUICK VERIFY.. . 

jSF_T ENVIRONMENT. 

I INITIALIZE KT MEMORY MANAGEMENT 

j CLEAR THE ERROR TABLE 



}G0 REPORT THE STATUS 



iINIT UNIT NUMBER. . . 

: CLEAR COUNT OF DEVICES RUNNING 



i... AND SET NEXT UNIT NUMBER. 



{ABORT, NO MORE UNITS. 



{HOW MANY UNITS SELECTED? 
}BR IF ONLY 1 
lARE ANY STILL RUNNING? 
iBR IF NO 



{SHQULO WE PRINT STATISTICS 
I BR IF* NO 



L9 



TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 
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SEQ 0115 



112 022124 






022124 


013700 


002200 


022130 


104442 




113 022132 






022132 


103342 




114 022134 


0C5037 


003106 


115 022140 


005237 


002216 


116 022144 


012001 




117 022146 


010137 


002204 


lie 






119 022152 


012001 




120 






121 






122 022154 


010137 


002206 


123 022i60 


012721 


016206 


124 02?; 164 


013721 


002210 


125 






126 02 2170 






127 






126 






129 






130 






131 






132 






133 






134 022170 


013701 


002200 


135 022174 


006301 




136 022176 


052761 


100000 003172 


137 022204 


005037 


005766 


138 022210 


023727 


002012 000001 


139 022216 


101416 




140 022220 






022220 


104421 




141 022222 


032700 


001000 


142 022226 


001412 




143 022230 






022230 


013746 


002200 


022234 


012746 


022322 


022240 


012746 


000002 


022244 


010600 




022246 


104417 




022250 


062706 


0O00O6 


144 022254 






145 022254 


005037 


003110 


146 022260 


013701 


002204 


14 7 022264 


010102 




148 022266 


062702 


000002 


149 022272 


004737 


016366 


150 022276 


103005 




151 022300 


010137 


003110 


152 0223C4 


012737 


177777 003106 


153 022312 






154 






155 






156 






157 022312 






022312 


012700 


000000 



SETUj 


GPHARD 


UNITN.RO 




MOV 


UNITN.RO 




TRAP 


CIGPHRD 




BNCOMPLETE NXTU 




BCC 


NXTU 




CLR 


DUFLG 




INC 


OEVCNT 




MOV 


(R0)*,R1 




MOV 


R1,CSRADDR 




MOV 


(R0)«,R1 




iMOV 


(R0),R2 




1 MOV 


R2.IPRI 




MOV 


Rl.IVEC 




MOV 


♦INTR.CR1)* 




MOV 


IPRI.CRU* 


1$: 






i 


TST 


QVP 


i 


BEQ 


5* 



>GET UNIT N P-TABLE POINTER. 

jBR IF UNIT NOT AVAILABLE. 

{ CLEAR "DROPPED" FLAG. 

{GET 1ST REGISTER ADDRESS. 

{ADDRESS OF REGISTERS OF UNIT UNDER TEST 

jGET VECTOR ADDRESS. 

jGET INTERRUPT PRIORITY 

,SET INTERRUPT PRIORITY. 

{SET INTERRUPT VECTOR POINTER... 

i. . .VECTOR. .. 

i. . .AND PRIORITY. 



I 1ST PASS ?? 

{NO, SKIP THE PASS 1 STUFF, 



{1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
jTHAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



10$ 



2$: 



MOV UNITN,R1 

ASL Rl 

BIS *BIT15,ERYABL(R1) 

CLR EXTA 

CMP LIUNIT.01 

BLOS 10$ 

RFLAGS RO 

TRAP C1RFLA 

BIT OPNT.RO 

BEQ 10* 

PR1NTF ♦PUNIT,HNITN 

MOV LN1TN.-CSP) 

MOV #PUNIT,-(SP) 

MOV #2,-(SP) 

MOV SP,RO 

TRAP CtPNTF 

ADD 06, SP 

CLR NODEV 

MOV CSRADDR.Ri 

MOV R1.R2 

ADD 0TSSR.R2 

JSR PC.XNXM 

BCC 21 

MOV Rl, NODEV 

MOV #-1, DUFLG 



j SAY DEVICE RUNNING 

{CLEAR ERROR EXTENSION FLAG. 

»ARE WE TESTING MULTIPLE UNITS? 

,BR IF NO. 

|VtS -- GET OPERATOR FLAGS. 

{SHOULD WE PRINT UNIT 0? 
jBR IF NOT. 
{PRINT THE UNIT 



{ADDRESS OF FIRST REGISTER 

iSTAHT OF REGISTERS 

{ADDRESS OF T.SSR REGISTER 

{TEST BOTH CONTROLLER REGISTERS.. 

I . . .AND BR IF A .L OK, 

{FLAG DEVICE AS NON-EXISTENT 

{DROP THIS UNIT. 



{FINALLY, SET CPU PRIORITY AND WE'RE DONE. 

{ENABLE INTERRUPTS. 



j 
5$: 



SETPRI 
MOV 



OPRIOO 
4PRI00.R0 



M9 



T5V4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 

022316 10444: 
158 022320 

022320 

022320 104411 
159 

160 022322 045 116 
161 
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SEQ 0116 



L 10030: 



045 PUNIT: 



TRAP CJSPRI 
ENDINIT 



TRAP 



C$INIT 



.ASCIZ /*N*N*A+*++* TESTING UNIT WD2*A +****/ 
.EVEN 



N9 



TSV4 - MISCELLANEOUS SECTIONS MACRO M120O 23-MAR-84 09:44 PAGE 74 



ADD AND DROP UNITS SECTIONS 



163 
164 
165 
166 
167 
168 
169 
170 



SEQ 0117 



171 
1 7 2 
173 
174 
175 



176 



177 
178 
179 
180 



181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 

193 
194 
195 
196 
197 
198 



022370 
022370 
022370 
022372 
022374 
022402 
022410 
022410 
022412 
022416 
022422 
022424 
022426 
022432 
022432 
022434 
022436 



0^2464 
0^2464 
022464 



199 



022466 
022466 
022466 
0224 74 
022476 
022500 
022506 
022514 
022514 
022516 
022 K 32Z 
022526 
022530 
022532 
022536 
022536 
G22540 



010001 
006301 
052761 
042761 

010046 
012746 
012746 
010600 
104417 
062706 

000167 

000026 

045 



104452 



012737 
010001 
006301 
052761 
OC0240 

010046 
012746 
012746 
010600 
104417 
062706 

000167 

OOOOiO 



100000 
040000 



0224 36 
000002 



000006 



116 



003172 
003172 



177777 003106 



.SBTTL ADD AND DROP UNITS SECTIONS 

i + ♦ 

I THE ADD -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

t TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

j OR CB) RE -INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
, _- 

L$AU: 



045 1$: 



L10031; 



BGNAU 

MOV 

ASL 

BIS 

BIC 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENDAU 

TRAP 



R0,R1 

Rl 

0100000, ERTABLCRl} 

040000, ERTABL(Rl) 

01$,RO 

RO, (SP) 

01*. (SP) 

02, -(SP) 

SP,RO 

CIPNTF 

06, SP 

AU 

J$JMP 

L10031-2-. 

/*N*A UNIT *D*A ADDED/ 



GET UNIT TO BE ADDED CRO) 
MAKE IT A WORD INDEX 
SET THE "ACTIVE" BIT 
CLEAR THE "DROPPED" BIT 



, UNUSED. 



C$AU 



I ** 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN, 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COMMAND, OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS, AND THE P« TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



L*DU; 



BGNDU 



140000 
000240 



022542 
000002 



000006 



003172 
000240 



MOV 


0-1.DUFLG 


MOV 


R0.R1 


ASL 


Rl 


BIS 


0140000, ERTABL(Rl) 


240,240 


,240 


PRINTF 


01$, RO 


MOV 


RO, (SP) 


MOV 


01$, (SP) 


MOV 


02, -(S°) 


MOV 


sp.no 


TRAP 


CIPNTF 


ODD 


06, SP 


EXIT 


DU 


.WORD 


JUMP 


.WORD 


L 10032 2-. 



SAY DROPPED 
????????? 



TSV4 - MISCELLANGOUS SECTIONS 
ADD AND DROP UNITS SECTIONS 



200 


022542 


045 


116 


201 








202 


022572 
022572 








022572 


104453 




203 








204 








205 








206 


022574 

022574 






207 


022574 


013705 


002204 


208 


022600 


012703 


000550 


209 


022604 


004737 


016240 


210 


022610 


103420 




211 


022612 








022612 


012727 


000372 




022616 


000000 






022620 


013727 


002116 




022624 


000000 






022626 


005367 


177772 




022632 


001375 






022634 


005367 


177756 




022640 


001367 




212 


022642 


005503 




213 


022644 


001357 




214 


022646 


004737 


017172 


215 


022652 






216 


022652 
022652 
022652 


104461 
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BIO 
PAGE 74-1 



5EQ 0118 



045 1$: 



L 10032 j 



.ASCI* 

.EVEN 

ENODU 

TRAP 



/*N*A UNIT *D*A DROPPED/ 



C$OU 



! AUTO-DROP COOE SECTION, 

l - 

BGNAUTO 
LIAUTOit 

MOV 

MOV 
10$ j JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 



20$ i 

L10033; 



BN£ 
DEC 
BNE 
DEC 
BNE 
JSR 

ENOAUTO 
TRAP 



CSRADDR.R5 

♦360. ,R3 

PCWAITF 

20$ 

250. 

♦250..CPCV 



L IDLY, (PC)* 



«6(PC) 

.-4 

-22(PC) 
.20 
R3 
10$ 

PC.CKOROP 



CIAUTO 



jPOINT TO DEVICE REGISTER 

(ENOUGH TIME FOR 2400' REEL TO REWIND 

iWAIT FOR SSR TO SET 

iLEAVE WHEN SSR IS SET 

jWAIT FOR ,25 SECONOS 



iBUMP COUNTER DOWN 

iKEEP GOING 

i TRY ANO DROP UNIT 



j UNUSED ♦ 
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CIO 

PAGE 75 



C.fcAN-UP AND REPORT CODING SECTIONS 



P\8 

2.V) 
220 
221 
222 
22$ 
224 
225 



SEQ 0119 



.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



» t 



THE CLEANUP CODING SECTION CONTAINS THE COOING THAT 
EXECUTED AT THE END OF EACH PASS COW SUB-PASS). 
USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



IS 



22b 
227 
228 
229 
250 
231 
252 
253 
234 



255 
256 
237 
23ft 
239 

240 



241 
242 
245 
244 
245 
246 
24 7 
248 
249 
250 
251 
252 



253 
254 
255 

256 



022654 
022654 
022654 
022660 
022664 



022666 
022674 
022700 
022/00 
022700 
022700 



022702 
022702 
022702 
022702 
022706 
022712 
022714 
022/16 
022722 
022724 
022726 
022750 
022754 
022/56 
022740 
022742 
022744 
022750 
022752 
022756 
022 756 
022760 
022762 
022766 
022/72 
022774 
022776 
025002 
023004 
025010 
02 50 \ 2 
0230! 2 
025014 



015705 002204 
005737 005106 
100405 



012 765 000000 000002 
004757 016240 



104412 



BGNCLN 
LlCLEANti 

MOV 
TST 
BMI 



MOV 
JSR 

II: 

21: ENOCLN 

L 10054 j 

TRAP 



CSRAD0R.R5 

DUTLG 

11 



0O.TSSRCR5) 

PC.WAITF 



CI CLEAN 



iPOINT TO DEVICE REGISTER 
I "DROPPED" FLAG IS SET ON... 
I... AND GROSS CONTROLLER FAULT... 
I... DON'T TRY TO XCT CLEANUP CODE. 

iDO SOFT INIT 



i THE REPORT COOING SECTION CONTAINS THE 

, "PRINTS'* CALLS THAT GENERATE STATISTICAL REPORTS. 

I - - 



LIRPTm 



012746 
012746 
010600 
104416 
062706 
010246 
010546 
010446 
012704 
005003 
011402 
001467 
100066 
052/02 
001015 
042702 

010246 
010546 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
012746 



023144 
000001 



000004 
00317ii 

040000 

170000 



023201 
000003 



000010 
160000 

023251 



II 



ait 



BGNPPT 

PRINTS *OEVSUM 

MOV #OEVSUM.-(SP) 

mov n.-(SP) 

MOV SP.RO 

TRAP CIPNTS 

ADO #4 . SP 

MOV R2,-(S?) 

MOV R5.-CSP) 

MOV R4.-CSP) 

MOV ♦ERTA8L.R4 

CLR R5 

MOV (R4),R2 

BEQ 41 

BPL 41 

BIT ♦6IT14,R2 

BNE 21 

BIC *tC7777,R2 

PRINTS tDEV0NL.R3.R2 

MOV R2 . - l SP ) 

MOV R5.-(SP) 

MOV tOEVONL, -(SP) 

MOV 45. (SP) 

MOV SP.RO 

TRAP CIPNTS 

ADD 010. SP 

BR 41 

CMP R2, 0160000 

BNE 51 

PRINTS 00EVNXR.R3 

MOV R3.-CSP) 

MOV ODEVNXR.-CSP) 



GET START Of ERROR TABLE. 
CLEAR UNIT NUMBER 
GET ERROR TABLE ENTRY & TEST IT. 
ZERO IF UNIT NOT RUN 

WAS UNIT ORO^PF.D? 

BR IF YF5 

GET ERROR COUNT FIELD 

PRINT 



I WAS UNIT NON-EXISTENT? 
t BR IF NQ 



D10 
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CLEAN-UP ANO REPORT CODING SECTIONS 



SEQ 0120 



023020 
023024 
023026 
023030 
257 023034 
256 023036 

259 023042 

260 023044 
023044 
023046 
023052 
023056 
023060 
023062 

261 023066 

262 023070 

263 023074 
0230V* 
023076 
023100 
023104 
023110 
023112 
023114 

264 023120 

265 025124 

266 0£vK/6 

267 C:^;52 



26* 



> . 



T* 



269 02.'j.S6 

270 023X40 

271 025142 
023142 
023142 

273 

274 023144 

275 023201 

276 023251 

277 023333 

278 U23414 
279 

280 

281 023464 

282 

283 



012746 
010600 
104416 
062706 
000431 
020227 
001012 

010346 
012746 
012746 
010600 
104416 
062706 
000414 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 
045 
045 
045 
045 



000002 

000006 
160001 



023333 
000002 



000006 
170000 



023414 

000003 



000010 
000002 

003372 



3$ 



30$; 



4$: 



L 10035: 



MOV 

MOV 

TRAP 

AOD 

BR 

CMP 

BNE 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOD 

BR 

BIC 

PRINTS 

MOV 

MOV 

MCV 

MOV 

MOV 

TRAP 

AOD 

ADO 

INC 

CMP 

BLO 

MOV 

MOV 

MOV 

ENORPT 

TRAP 



116 

101 
101 
101 
101 



045 DEVSUM: .ASCIZ 
040 DEVONL: .ASCIZ 
040 DEVNXRj .A5CIZ 
040 DEVNRDt .ASCIZ 
040 QEVQRQi .ASCIZ 
.EVEN 

ENDMOD 



02,-CSP) 

SP.RO 

CIPNTS 

06, SP 

4$ 

R2, 0160001 

30$ 

0OEVNRD.R3 

R3.-CSP) 

00EVNRD,-(SP) 

02,-CSP) 

SP.RO 

CIPNT5 

*6, SP 

4$ 

OtC7777,R2 

0OEVDR0,R3,R2 

R2.-CSP) 

R3.-CSP) 

OOEVDR0,~(SP) 

03,-CSP) 

SP,RO 

CIPNTS 

010. SP 

02, R4 

R3 

R4,0£RTABE 

II 

(SP)>.R4 

(SP)*,R3 

(SP)»,R2 



I WAS UNIT NOT READY AT STARTUP? 
t BR IF NO. 



I 



UNUSED . 



CIRPT 



/rfNrfADEVICE STATUS SUMMARY j^N/ 

/*A UNIT #D3*A ONLINE, ERRORS ■ #D#N/ 

/#A UNIT #D3*A DROPPED, NON-EXISTENT REGISTERS/ 

/*A UNIT *D3*A DROPPED. NOT READY AT STARTUPS/ 

/HA UNIT *Q3*A DROPPED, ERRORS ■ *D*N/ 



E10 
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SEQ 0121 
CLEAN-UP AND REPORT CODING SECTIONS 

1 .TITLE TSV5A - HARDWARE TESTS 

2 

9 
10 023464 BGNMOD TSV5 

023464 TSV5:s 

16 
24 



F10 
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TEST 1: BUS RESET TEST 



SEQ 0122 



26 

27 
28 
29 
50 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 

65 023464 
023464 

70 023464 

71 023470 

72 023474 

73 023502 

74 023502 
75 

76 023504 
023504 
023504 

77 

78 023506 
023506 

79 023510 

80 023514 

81 023520 

82 023522 



012700 023662 

004737 016500 

012737 000024 002214 

005003 



104402 



104433 

0C4737 016240 

016501 OOOOO' 3 

010102 

042702 176277 



T1L00P: 



.SBTTL TEST 1: BUS RESET TEST 



THIS TEST VERIFIES THAT THE M7196 MODULE'S DEVICE REGISTERS ARE 
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE 
BUILT-IN INITIALIZATION SELF-TEST MICROOIAGNOSTIC DID NOT FIND 
ANY BASIC PROBLEMS IN THE MODULE. AREAS OF LOGIC TESTED BY THE 
SELF-TEST SEQUENCE ARE AS FOLLOWS: ROM AND PIPELINE REGISTER, 
SEQUENCER. INTERNAL BUSES, 2901 MICROPROCESSOR, AND. RAM, THIS 
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER, 
WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION 
MICROOIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE 
CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA) 
BITS BEING SET (1) ANO ALL OTHER BITS (EXCEPT A17 ANO A16 ANO 
OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0). IF THE 
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED 
LISTING THE EXPECTED DATA, ACTUAL DATA, ANO THE DISCREPANCIES. 
THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND 
REPORTS ONE OF THREE POSSIBILITIES: 

1. TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET, 
OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE 
APPARENT ERROR COOE IN BITS 0-5); INDICATES THAT THE 
TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
ERROR (EXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
REPLACE THE M7196. IF THE M7196 ITSELF IS BEING 
DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
ERROR ENABLED IN OROER TO PROBE FOR THE PROBLEM, 

2, SSR • 0, SC - ANO THE ERROR COOE IN BITS 0-5 IS IN 
THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
CODE IS DECODED ANO THE APPROPRIATE DESCRIPTION GIVEN. 
INDICATES THAT A SERIOUS PROBLEM EXISTS. 



BGNTST 

MOV 
JSR 
MOV 

CLR 

BGNSUB 



OTSTIID.RO 
PC.TSTSETUP 
020. .LOOPCNT 

R3 



Tl: : 
j ASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
j PERFORM 20 ITERATIONS 

I USE R3 AS FATAL ERROR FLAG 

,//////////// BEGIN SUBTEST //////////// 

Tl.lt 

TRAP CSBSUB 



CSRESET 



BRESET 




j ISSUE A BUS RESET 

TRAP 


JSR 


PC.WAITF 


j WAIT FOR READY 


MOV 


TSSRCR5),R1 


jGET THE CONTENTS OF TSSR 


MOV 


R1.R2 


i CONTENTS OF TSSR 


BIC 


0tC<HIADDRIOFL>,R2 


j THESE BITS MAY BE SET 



G10 
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83 023526 

84 023532 

85 023534 

89 023536 
023536 
023540 
023542 
023544 

90 023546 

91 023550 

92 023550 
023550 
023550 

93 



052702 
020102 
(O1405 

104455 
000145 
003701 
012072 
005203 



104403 



00220^ 



10$: 



i9j 44 
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BIS 


*SSR!NBA,R2 


, READY AND NEW DATA SHOULD BE 


SET 


CMP 


R1.R2 


, COMPARE EXPECTED TO RECEIVED 




BEQ 


10$ 


j BRANCH IF COMPARE 




ERROF 


ERRNO.SFHERR.SFFMSG 


t REPORT A FATAL ERROR 








TRAP 


C$ERDF 






.WORD 


101 






.WORD 


SFHERR 






.WORD 


SFFMSG 


INC 


R3 


j SET THE FATAL ERROR FLAG 





ENDSUB 



SEQ 0123 



j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10037t 

TRAP CJESUB 
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H10 



95 023552 

96 023554 

97 023556 

98 023562 
99 

100 

101 023564 
023564 
023564 

102 

103 023566 

104 023572 

105 023576 

106 023602 

107 023604 

108 023610 

109 023614 

110 023616 

114 023620 
023620 
023622 
023624 
023626 

115 023630 

116 023632 

117 023632 
023632 
023632 

118 
119 

120 023634 

121 023636 

122 023640 

123 023644 

124 023650 

125 023652 

126 023656 
023656 
023660 

127 

128 

129 

130 

131 

132 023662 

133 

134 023702 
023702 
023702 

135 

136 



005703 
001402 
004737 
005003 



104402 

005065 
004737 
016501 
010102 
042702 
052702 
020102 
001405 

104455 
000146 
003646 
012072 
005203 



104403 



005703 
001402 
004737 
004737 
103002 
000137 

104432 
000022 



111 



104401 



017172 



>0$: 



TST 


R3 


BEQ 


20* 


JSR 


PC.CKOROP 


CLR 


R3 



BGNSUB 



000002 
016240 
000002 

176277 
002200 



CLR 


TSSRCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


R1.R2 


BIC 


*tC<HIADDR!0FL>,R2 


BIS 


*SSR!NBA,R2 


CMP 


R1.R2 


BEQ 


10$ 


ERRDF 


ERRNO.SFIERR.SFFMSG 



10$: 



INC R3 
ENDSUB 



017172 
016446 

023502 



TST 


R3 


BEQ 


20$ 


JSR 


PCCKDROP 


JSR 


PC.TSTLOOP 


BCC 


40$ 


JMP 


T1L00P 


EX.TT 


TST 



156 



20$ 



40* 



I LOCAL TEXT MESSAGES FOR TEST 
J - 

151 TST1ID; .ASCIZ 'Initialization* 
.EVEN 
ENDTST 



SEQ 0124 



j DID WE HAVE FATAL ERROR ? 
j BRANCH IF NOT 

I GO DROP THIS UNIT, IF ALLOWED 
jRESET FATAL ERROR FLAG 



i //////////// BEGIN SU6TEST //////////// 

T1.2: 

TRAP C$BSUB 

jWRITE TO ISSUE A SOFT RESET 

iWAIT FOR READY TO SET 

} GET REGISTER TSSR DATA 

j CONTENTS OF TSSR 

j THESE BITS MAY BE SET 

j READY AND NEU DATA SHOULD BE SET 

^COMPARE EXPECTED TO RECEIVED 

{BRANCH IF COMPARE 

j REPORT A FATAL ERROR 



TRAP 


C*ERDF 


.WORD 


102 


.WORD 


SFIERR 


.WORD 


SFFMSG 



j SET THE ERROR FLAG 

}\\\\\\\\\\\\\ END SUBTEST W\\\\\\\\\\\ 

L 10040; 

TRAP CSESUB 



jFATAL ERROR DETECTED ? 

j BRANCH IF NOT 

I SEE IF TIME TO DROP UNIT 

» SHOULD WE DO ITERATIONS ? 

i BRANCH IF NOT 

iLOOP UNTIL COUNT EXPIRED 

jALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 10036 



L 10036: 



TRAP 



C*ETST 



110 
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SEQ 0125 



138 

139 

140 

141 

142 

14* 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
191 
192 



193 
194 
195 
196 



023704 
023704 
023704 
023710 
023714 
023722 
023724 
023730 
023732 
023 734 
023736 
023742 
023744 
023746 
023746 
023750 
023752 
023754 
023756 
023760 

023764 



SBTTL TEST 2; WRAP DATA - HIGH BYTE 



THIS TEST VERIFIES OPERATION OF; 



1, PART OF THE LSI-11 BUS INTERFACE SECTION OF THE M7196 
MODULE: PART OF THE INPUT FILE CTSDB HIGH BYTE), PART 
OF THE OUTPUT FILE CTSSR HIGH BYTE AND TSBA, BOTH 
BYTES), PART OF THE DC005 TRANSCEIVER CIRCUITS (ADDRESS 
DECODER. BDAL DRIVERS. HIGH BYTE OF INTERNAL DAL BUS 
DRIVERS), AND BASIC PROGRAMMED I/O CONTROL SEQUENCES 
AND LOGIC j 

2. PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER, 
REGISTER 0, ROTATE AND NEGATE FUNCTIONS i 



3. Y AND SOURCE BUSES j 

4. BASIC MICROPROGRAM SEQUENCES. 



THE PROGRAM WRITES A TEST DATA BYTE INTO THE HIGH BYTE OF TSDB, 
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA ANO TSSR. THE MOOULE IS FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
8 ANO 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN 
WRITTEN. AN ERROR IS REPORTED ANO A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED, THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES CO-377 OCTAL). 



012700 024352 

004737 016500 

012737 000024 002214 

005004 

012703 177777 

005703 

001412 

005003 

004737 015764 

103406 

010001 

104455 
000311 
003646 
012024 
005203 
005037 002220 



BGNTST 

MOV 
JSR 
MOV 

T2L00P: CLR 
MOV 

5*s 1ST 
BEQ 
CLR 
JSR 
BCS 
MOV 
ERRDF 



10*; 



INC 
CLR 

BGNSEQ 



0TST2ID.R0 

PCTSTSETUP 

020..LOQPCNT 

R4 

*-l. R3 

R3 

10* 

R3 

PC.SOFINIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



R3 
FATFLG 



T2: : 

j ASCII MESSAGE TO IDENTIFY TEST 

{DO INITIAL TEST SETUP 

{PERFORM 20 ITERATIONS 

{STARTING DATA PATTERN 

j DO INIT ON FIRST TIME THROUGH 

,00 WE NEED SOFT INIT 

, BRANCH IF NOT 

jDON'T NEED INIT NEXT TIME THRU 

jDO SOFT INIT OF CONTROLLER 

{BR IF SOFT INIT - OK 

j SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

jFORCE SOFT INIT ON NEXT PASS 

{CLEAR FATAL ERROR FLAG 



C3ERDF 
201 

SFIERR 
SFIMSG 



!>>>>>>>>>>>> BEGIN SEGMENT >>>>*>>>>>>> 



J10 
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023764 104404 



197 








198 


023766 


110465 


000001 


199 


023772 


004737 


016240 


200 


023776 


103411 




201 


024000 


010001 




202 


024002 


010402 




206 


0240O4 








024004 


104455 






024006 


000312 






024010 


024300 






024012 


015464 




207 


024014 


005203 




208 


024016 


005237 


002220 


209 


024022 








024022 


104406 




210 


024024 


005737 


002220 


211 


024030 


001402 




212 


024032 


004737 


017172 


213 


024036 


010402 




214 


024040 


042702 


177774 


215 


024044 


O0C302 




216 


024046 


052702 


002200 


217 


024052 


016501 


000002 


218 


024056 


032701 


000100 


219 


024062 


001402 




220 


024064 


052702 


000100 


221 


024070 


020201 




222 


024072 


001405 




226 


024074 








024074 


104456 






024076 


000313 






024100 


024233 






024102 


015464 




227 


024104 


005203 




228 


024106 








024106 


104406 




229 


024110 


016501 


000000 


230 


024114 


005002 




231 


024116 


150402 




232 


024120 


000302 




233 


024122 


150402 




234 


024124 


020102 




235 


024126 


001405 




oxo 


f\~>A t tr\ 








ww -v *-»»«» 








024130 


104456 






024132 


000314 






024154 


024166 






024136 


015464 




240 


024140 


005203 




241 








242 


024142 
024142 








024142 


104405 




24 3 








244 


024144 


105204 




245 


024146 


001270 





MOVB 


R4.TSDBHCR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


MOV 


R4.R2 


ERRDF 


ERRN0,T2SSR, EXPREC 



15$: 



20$: 



25$ 



INC R3 

INC FATFLG 
CKLOOP 

TST FATFLG 

BEQ 20$ 

JSR PC.CKDROP 

MOV R4.R2 

BIC *tC<BIT0!BITl>,R2 

SWAB R2 

BIS *SSR!NeA,R2 

MOV TSSRCR5),R1 

BIT *0FL,R1 

BEQ 25$ 

BIS *0FL,R2 

CMP R2.R1 

BEQ 30$ 

ERRHRD ERRN0,T2TSSR, EXPREC 



30$ 



INC 


R3 


CKLOOP 




MOV 


TSBACR5),R1 


Cl.ft 


R2 


BISB 


R4.R2 


SWAB 


R2 


BISB 


R4.R2 


CMP 


R1.R2 


BEQ 


35$ 



rRHJ-iPI coohin Torcna cvoocr 

l*a Mill II 1 \M M * " " 1%f I t %m I UVl t ■ taf »* t * ^— W 



35*: 



INC 


R3 


F.NOSEG 




INC8 
BNE 


R4 
5$ 



SEQ 0126 



TRAP C$BSEG 

j SET MAINT MODE ♦ WRITE DATA 

I WAIT FOR SSR TO SET 

j BR IF CARRY SET (GOOO RETURN) 

j SAVE CONTENTS OF TSSR 

{DATA THAT WAS WRITTEN 

j DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

i FORCE SOFT INIT ON NEXT PASS 

j SET FATAL ERROR FLAG 

j LOOP ON ERROR, IF FLAG SET 

TRAP 

j WAS FATAL ERROR RECEIVED ? 

j BRANCH IF NOT 

jSEE IF TIME TO DROP UNIT 

{DATA PATTERN WRITTEN 

t CLEAR ALL BUT LOW 2 BITS 

{BITS 8 AND 9 HAVE LOW DATA BITS 

i THESE BITS MUST BE SET ALSO 

» GET THE CONTENTS OF TSSR 

{IS OFF-LINE BIT SET ? 

i BRANCH IF NOT OFF-LINE 

j SET OFF-LINE IN EXPECTED DATA 

I DOES EXPECTED MATCH RECEIVED ? 

j OKAY IF MATCH 

{TSSR WASN'T CORRECT 



C$ERDF 
202 
T2SSR 
EXPREC 



C5CLP1 



{FORCE SOFT INIT 
{LOOP ON ERROR ? 



TRAP 
.WORD 
.WORD 
.WORD 
ON NEXT PASS 



:rap 

•NTS 



{GET TSBA REGISTER CONTi 

{DATA PATTERN WRITTEN 

{MOVE INTO TOP BYTE 

{BOTH HALVES SHOULD BE SAME 

{COMPARE EXPECTED TO RECEIVED 

{ERROR IF NOT EQUAL 



C$ERHRD 
203 

T2TSSR 
EXPREC 



C$CLP1 



. ODTMT TUC CDOno f CVDh/nCf\i 




TRAP 


C$ERHRD 


.WORD 


204 


.WORD 


T2TSBA 


.WORD 


EXPREC 


{FORCE SOFT INIT ON NEXT PASS 





}<<<<<<< <<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP CSESEG 

{NEXT DATA PATTERN TO TEST 
{BRANCH TILL BACK TO ZERO 



K10 
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246 024150 
24 7 024154 

248 024156 

249 024162 
024162 
024164 

250 
251 
252 
253 
254 

255 024166 

256 024233 

257 024300 

258 024352 
259 

260 024400 
024400 
024400 

261 

262 



004737 016446 

103002 

000137 023722 

104432 
000214 



124 
124 
116 
127 



104401 



123 
123 
157 
162 



102 
123 
040 
141 



SEQ 0127 



40*; 



I* 

j LOCAL 

I - 

T2TSBA: 
T2T5SR; 
T2SSR; 
TST2ID: 



JSR PC.TSTLOOP 

BCC 40$ 

JMP T21 OOP 

EXIT TST 



TEXT MESSAGES TOR TEST 



» SHOULD WE 00 ITERATIONS ? 
(BRANCH IF NOT 
jLOOP UNTIL COUNT EXPIRED 
{ ALL DONE THIS TEST 



TRAP 
.WORD 



CIEXIT 
L10041-, 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

,EVEN 

ENDTST 



'TSBA Incorrect After TSDB High 
'TSSR Incorrect After TSDB High 
'No Sub-System Ready After TSDB 
'Wrap Data - High Byte* 



Write' 
Write' 
High Write 



L10041; 



TRAP 



CSETST 



L10 
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SEQ 0128 



264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
285 
284 
285 
286 
287 
288 
289 
290 
291 

296 

297 
298 
299 
300 
301 
302 
303 
304 
305 
309 
310 



311 

3i r 

313 
314 

315 
316 
317 
318 
319 
320 
324 



024402 
024402 
024402 
024406 
024412 
024420 
024422 
024426 
024430 
024432 
024434 
024440 
024442 
024444 
024444 
024446 
024450 
024452 
024454 
024456 

024462 
024462 

024464 
024470 
024474 
024476 
024500 
024502 



SBTTL TEST 3: WRAP DATA - LOW BYTE 

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES: 



1. LOW BYTE OF THE TSDB INPUT FILE REGISTER, 

2. LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DC005 
TRANSCEIVER CIRCUITS, 

3. BASIC FUNCTIONING OF PARTS OF THE RAM. 



THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYT£ OF TSDB. 
UAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA ANO TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES Of TSBA ANO THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
8 ANO 9, WHICH SHOULD CONTAIN BITS 8 ANO 9 OF THE DATA PATTERN 
WRITTEN, AN ERROR IS REPORTED ANO A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES (0-377 OCTAL). 



012700 025045 

004737 016500 

012737 000024 002214 

005004 

012703 000001 

005703 

001412 

005003 

004737 015764 

103406 

01OOO1 

104455 
000455 
003646 
012024 
005203 
005037 002220 



104404 

110465 000000 
004737 016240 
103411 
010001 
010402 



BGNTST 

MOV 
JSR 
MOV 

T3LO0P: CLR 
MOV 

5$: TST 
BEQ 
CLR 
JSR 
BCS 
MOV 
ERRDF 



10*: 



INC 
CLR 

BGNSEG 



MOVB 

JSR 

BCS 

MOV 

MOV 

ERRDF 



*TST3ID,R0 

PC.TSTSETUP 

020..L00PCNT 

R4 

01, R3 

R3 

10$ 

R3 

PC.SOFINIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



R3 
FATFLG 



R4,TSDB(R5) 

PC.WAITF 

15$ 

R0.R1 

R4.R2 

ERRN0,T3SSR,EXPREC 



T3:: 

{ASCII MESSAGE TO IDENTIFY TEST 

jDO INITIAL TEST SETUP 

j PERFORM 20 ITERATIONS 

j STARTING DATA PATTERN 

{FORCE SOFT INIT ON FIRST PASS 

{SET IF INIT IS REQUIRED 

I BRANCH IF NO INIT NEEOEO 

i ASSUME NO INIT NEEDED ON NEXT LOOP 

t D0 SOFT INIT OF CONTROLLER 

j BR IF SOFT INIT » OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP C$FRDF 
.WORD 301 
.WORD SFIERR 
.WORD SFIMSG 

{FORCE INIT ON NEXT PASS 

{CLEAR FATAL ERROR FLAG 



}>>>>>>>>>>>> BEGIN 



SEGMENT >>>>>>>>•»>>> 

TRAP CSBSEG 



{SET MAINT MODE * WRITE DATA 

{WAIT FOR SSR TO FET 

jBR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

iDATA THAT WAS WRITTEN 

{DEVICE FATAL SSR FAILED TO SET 
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024502 


104455 






024504 


000456 






024506 


024 774 






024510 


015464 




325 


024512 


005203 




326 


024514 


00523? 


002220 


327 


024520 








024520 


104406 




328 


024522 


005737 


002220 


32' 


024526 


001402 




330 


024530 


004737 


017172 


331 


024534 


010402 




332 


024536 


042702 


177774 


333 


024542 


000302 




334 


024544 


052702 


002200 


335 


024550 


016501 


000002 


336 


024554 


032701 


000100 


337 


024560 


001402 




338 


024562 


0527C2 


000100 


339 


024566 


020201 




340 


024570 


001405 




344 


024^? 








024572 


104456 






024574 


000457 






024576 


024 730 






024600 


015464 




345 


024602 


005203 




346 


024604 








024604 


104406 




34 7 


024606 


016501 


r O00O 


348 


024612 


005002 




349 


024614 


150402 




350 


024616 


000302 




351 


024620 


150402 




352 


02462.? 


020102 




353 


024624 


001405 




357 


024626 








024626 


104456 






024630 


000460 






024632 


024664 






024634 


015464 




358 


024636 


005203 




359 








360 


024640 
024640 








024640 


104405 




361 








362 


024642 


105204 




363 


024644 


001270 




364 


024646 


004/37 


016446 


365 


024652 


103002 




366 


024654 


000137 


024420 


367 


024660 








024660 


104432 






034662 


000210 




368 








369 









15$: 



20$: 



25$: 



30$: 



35$: 



40$; 



1 + 











SEQ 0129 








TRAP 


C$ERDF 








.WORD 


302 








.WORD 


T3SSR 








.WORD 


EXPREC 


INC 


R3 




{FORCE INIT ON NEXT PASS 




INC 


FATFLG 




,SET THE FATAL ERROR FLAG 




CKLOO? 






j LOOP ON ERROR, IF FLAG SET 

TRAP 


C$CLP1 


1ST 


FATFLG 




j DID WE GET FATAL ERROR ? 




BEQ 


20$ 




, BRANCH IF NOT 




JSR 


PC.CKDROP 




j DROP UNIT, IF DROP ALLOWED 




MOV 


R4,R2 




,DATA PATTERN WRITTEN 




DIC 


*tC<BIT0!6ITl 


>,R2 


j CLEAR ALL BUT LOW 2 BITS 




SWAB 


R2 




j BITS 8 AND 9 HAVE LOW DATA BITS 


BIS 


0S5RJNBA.32 




j THESE BITS MUST BE SET ALSO 




MOV 


TSSRCP.5),R1 




j GET THE CONTENTS OF TSSR 




BIT 


00FL.R1 




lis DRIVE OFF-LINE 




BEQ 


25$ 




{BRANCH IF NOT OFFLINE 




BIS 


40FL.R2 




{SET OFF LINE IN EXPECTED 




CMP 


R2.R1 




{DOES EXPECTED MATCH RECEIVED 


? 


BEQ 


30$ 




j OKAY IF MATCH 




ERRHRD 


ERRN0.T3TSSR, 


EXPREC 


iTSSR WASN'T CORRECT 





TRAP 


C$ERHRD 


.WORD 


303 


,WOR0 


T3TSSR 


.WORD 


EXPREC 



INC R3 
CKLOOP 

MOV TSBA(R5),R1 

CLR R2 

BISB R4.R2 

SUAB R2 

BISB R4.R2 

CMP R1.R2 

BEQ 35$ 

EHRHRD ERRNO, T3TSBA, EXPREC 



INC R3 
ENDSEG 



INCB R4 

BNE 5$ 

JSR PC.TSTLQQH 

BCC 40$ 

JMP T3L00P 

EXIT TST 



jFORCE INIT ON NEXT PASS 
{LOOP ON ERROR ? 

TRAP C$CLP1 
{GET TSBA REGISTER CONTENTS 

,DATA PATTERN WRITTEN 

{MOVE INTO TOP BYTE 

{BOTH HALVES SHOULD BE SAME 

{COMPARE EXPECTED TO RECEIVED 

{BR IF ERROR NOT EQUAL 

{PRINT THE ERROR 6 EXPD/RECV 

TRAP C$ERHRD 
.WORD 304 
.WORD T3TSBA 
.WORD EXPREC 

{FORCE INIT ON NEXT PASS 

{<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

{NEXT DATA PATTERN TO TEST 
{ALL DONE WHEN RACK TO ZERO 
{SHOULD WE DO ITERATIONS ? 
{BRANCH IF NOT 
>LOOP UNTIL COUNT EXPIRED 

j ALL DONE THIS TEST 

TRAP C$l-XIT 

.WORD L10042-, 



N10 
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TEST 5: WRAP DATA - LOW BYTE 



SEQ 0130 



370 








{LOCAL * 


rEXT ME: 


371 








s 




372 












373 024664 


124 


123 


102 


T3TSBA: 


.ASCIZ 


374 024730 


124 


123 


12? 


T3TSSR: 


.ASCIZ 


375 024774 


116 


157 


040 


T3SSR: 


.ASCIZ 


3/6 025045 


127 


162 


141 


TST3ID: 


.ASCIZ 


377 










.EVEN 


378 025072 










ENDTST 


025072 












025072 


104401 










379 












380 













' TSBA Incorrect After TSDB Low Urite' 
'TSSR Incorrect After TSDB Low Write' 
'No Sub-System Ready After TSOB Low Write' 
'Wrap Data - Low Byte' 



L10042: 



TRAP 



C*ET5T 



B 1 1 
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TEST 4t RAM TEST 



SEQ 0131 



38? 

383 

384 

385 

386 

387 

386 

389 

390 

391 

39? 

393 

394 

395 

$<K 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

41? 

413 

414 

415 

416 

417 

418 

419 

420 

421 

«22 

423 

424 

425 

426 

427 

428 

4?9 

430 

431 



4 32 
437 

4 38 
439 



025074 
025074 

025074 
025074 
O25074 104402 

0250 76 012 700 026404 

02510? 004737 016500 

02510</ 012737 QQQQQS QQ2214 



♦SBTTL TEST 4j RAM TEST 

THIS TEST VERIFIES THAT ALL LOCATIONS Of THE RAM ON THE M7196 
CAN PROPERLY STORE ANO READ BACK ALL DATA PATTERNS, AND THAT 
EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.E., THAT ONE ANO ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADORESS). THESE 
TESTS APE PERFORMED BY THREE SUBTESTS, DESCRIBED BELOW. A 
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
THE 2901 ANO THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 
ADD. 



TEST 4 , SUBTEST 1: - 

THIS SUBTEST VERIFIES EACH RAM LOCATION Bt FIRST PLACING THE 
M7196 INTO MAINTENANCE MOOE BY WRITING INTO THE LOW BYTE Of TSDB 
AND THEN PERFORMING THE FOLLOWING SEQUENCE FOR EACH ADDRESS 
0-7777 (OCTAL)j 



1. THE ADORESS TO 
WORD WRITE). 



BE TESTED IS LOADED INTO THE TSDB (VIA A 



3. THE ADORESSED RAM LOCATION IS WRITTEN, THEN REAO INTO 
THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE 
LOW BYTE OF TSDB. 

3. THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS 
THE DATA PATTERN ORIGINALLY WRITTENj A DISCREPANCY IS 
REPORTED AS AN ERROR. 

4. THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN 
WRITTEN INTO TSDB (WORD WRITE). TO CAUSE THE LOCATION 
UNDER TEST TO AGAIN BE RFAD INTO THE LOW B*TE OF TSBA. 
THE LOW BYTE OF TSBA IS AGAIN CHECKED ANO DISCREPANCIES 
REPORTED. 



THE HIGH BtTE OF TSBA IS CmEC*EDi 
THE SUM OF THE HIGH ANO LOW BYTES 
TSDB AS A WORD. A DISCREPANCY IS 
PROBLEM, 



IT SHOULD CONTAIN 
LAST WRITTEN INTO 
REPORTED AS A 2901 



THE. CONTENT 
IS IGNORED. 



0* TSSR IS CmECKEDi 

OTHER DISCREPANCIES 



BfiNTST 



BGNSLG 



SETTING 

IN TSSR 



T4 



OF THE SC BIT 
ARE REPORTED, 



MOV 
JSP 
MQV 



♦TST4I0.R0 
PC.TSTSf Ti4> 

«tLQQPCNT 



!//////////// BEGIN SUBTEST *//*/' 

T4.1: 

TRAP CUiSUG 

, ASCII MESSAGE TO IDENIXFY Tfctil 
jPO INITIAL TEST St TUP 
iPERKQRM 5 XTERATXUNS 
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TEST 4 ; RAM TEST 



Cll 



440 
441 
442 
446 
44? 



448 
449 

450 
451 
452 

453 
454 
455 
4S6 
457 
458 
459 
460 
461 
462 
466 



467 
468 



469 

470 
471 
4 72 
475 



4 74 
4 75 
4 76 
477 
4/8 
479 
480 
481 
482 
483 
487 



438 



025114 
025114 
025120 
025122 
025124 
025124 
025126 
025130 
025132 
025134 
025136 
025142 
025146 
025146 
025146 

025150 
025152 
025156 
025162 
025166 
025172 
025176 
025202 
025204 
0252C6 
025206 
025210 
025212 
025214 
025216 
025216 
025216 
025216 



025220 
025222 
025226 
025230 
025230 
025232 

025254 
025236 
025240 
025242 
025246 
025252 
025256 
025262 
025264 
025266 
025266 
025270 
025272 
0252 74 
025276 



004737 
103405 
010001 

104455 
000621 
003646 
012024 
0050<)4 
004737 
105065 



104404 

110402 
004737 
010465 
0O4737 
110265 
004737 
016501 
120102 
001404 

104456 
000622 
026242 
015464 



104405 

OO5204 
020427 
001347 

104*10 
000102 

005002 
005304 
110402 
004737 
010465 
004737 
016501 
120102 
001404 

104456 
000623 
026242 

015-464 



015764 
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T4LO0P} 



JSR 


PC.SOFINIT 


BCS 


201 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIbRR,SFIMSG 



016326 
000000 



201: 



!5${ 



CLR 
JSR 
CLMB 

BGNSEG 



016326 
000000 
016326 
OOOOOO 
016326 
OOOOOO 



SQti 



ENOSEG 



010000 



016326 
OOOOOO 
016326 

OOOOOO 



401; 



R4 

PC.CHKTSSR 

TS0BCR5) 



MOVB 


R4.R2 


JSR 


PC.CHKTSSR 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


MOVB 


R2.TS0B(R5) 


JSR 


PC.CHKTSSR 


MOV 


TSBA(R5),R1 


CMPB 


R1.R2 


BEQ 


301 


ERRHKD 


ERRN0.TSBAM2.EXPREC 



INC 


R4 


CMP 


R4, 010000 


BNE 


25$ 


ESCAPE 


sue 


CLR 


R2 


DEC 


R4 


MOVB 


R4.R2 


JSR 


PC.CHKTSSR 


MOV 


R4,;S0B(R5) 


JSR 


PC.CHKTSSR 


MOV 


TSBA(R5),R1 


CMPB 


R1.R2 


BEQ 


451 


ERRHRD 


ERRNQ,TSBAM2 t EXPREC 



SEQ 0132 



iDO INITIALIZE ON CONTROLLER 

|BR IF INIT WAS OK 

iCONTENTS OF TSSR REGISTER 

jFATAl ERROR TSSR WAS NOT OK 

TRAP CIERDF 

.WORD 401 
•WORD SFIERR 
.WORD SFIMSG 

j SET RAM ADDRESS AT ZERO 

»WAIT FOR READY, NON-AMBIGUOUS 

»SET INTO MAINTENANCE MODE 

j >>>>b >>>>>> > BEGIN SEGMENT >>>>>>>»>>>> 

TRAP CIB5EG 

lEXPECTED DATA FROM WRAP-AROUND 

I WAIT FOR READY, NON-AMBIGUOUS 

lLOAD ADDRESS INTO TSD6 

jWAIT FOR READY, NON-AMBIGUOUS 

lLOAOS DATA INTO RAM LOCATION 

I WAIT FOR READY. NON -AMBIGUOUS 

(READS WRAP DATA 

iDOES WRITTEN(WRAP) • READ 

iBR IF OK, 1HEY ARE EQUAL 

jDATA NOT WRAPPED CORRECTLY 

TRAP OERHRD 

.WORD 402 
.WORD TS8AM2 
.WORD EXPREC 

!<<<<<<<<<<<<< ENO SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP CSESEG 



iNEXT 
(END OF RAM MEMORY 
I LOOP TILL ALL RAM 
jDON'T CONTINUE IF 



CHECK 

WRITTEN 

ERROR ON WRITE 

TRAP CtESCAPF 

.WORD L10O44-. 



45*1 



CKLOQP 



iCLEAR OUT R2 HIGH BITS 
iSET BACK TO 7777 
,GET DATA PATTERN BACK IN SHAPE 
j WAIT FOR READY, NON-AMBIGUOUS 
»LOAD UP RAM ADDRESS POINTER 
,WAIT FOR READY, NON-AMBIGUOUS 
jREAD RAM CONTENTS BACK 
jCHECK UITH DATA WRITTEN 
»BR IF OK, DATA IH * DATA OUT 
jWRITTEN DATA NOT » TO READ 

TRAP 
.WORD 
.WORD 
,WORO 
j SCOPE LOOP 



CJERHRD 

405 

1 SBAM<> 

expr&c 
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TEST 4: RAM TEST 



Dll 



025276 

489 025300 

490 025304 

491 025306 

492 025310 

493 025312 

494 C25314 

498 025316 
025316 
025320 
025322 
025324 

499 025326 
025326 

500 025330 

501 025332 
502 

503 025334 
025334 
025334 

504 



104406 
116501 
010402 
000302 
060402 
120102 
001404 

104456 
000624 
026152 
015464 

104406 
005304 
002342 



104403 



000001 



MOVB 


TSBAH(R5) f Rl 


MOV 


R4.R2 


SWAB 


R2 


ADO 


R4.R2 


CMP8 


R1.R2 


BEQ 


50$ 


ERRHRD 


ERRN0.M2901.EXPREC 



50* { 



CKLOOP 

DEC 
BGE 

ENDSUB 



R4 
40$ 



j SCOPE LOOP 



TRAP 
.WORD 
.WORD 
.UORD 



TRAP 

iDROP DATA COUNTER (PATTERN) 
iNOT AT LOC. ZERO YET 



SFQ 0133 



TRAP C$CLPi 
jHIGH BYTE READ OF TSBA 
,DATA PATTERN WRITTEN 
t HIGH TO LOW 

t TOTAL OF BYTES IN LOW BYTE 
I SUM Of BYTES WRITTEN TO TSDB ■ TSBAH 
,BR IF OK, THEY SHOULD BE 
12901 PROBLEM ADDER 



CfERHRD 
404 
M2901 
EXPREC 

CJCLP1 



;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10044 j 

TRAP CiESUB 



Ell 
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TEST Ax RAM TEST 



SEQ 0X34 



506 








507 


025336 
025336 








025336 


104402 




508 








509 








510 








511 








512 








513 








514 


025340 


004737 


015764 


515 


025344 


103405 




519 


025346 


010001 




520 


025350 








025350 


104455 






025352 


000625 






025354 


C-J3646 






025356 


012024 




521 


025360 


005002 




522 


025362 


005004 




523 


025364 


004737 


016326 


524 


025370 


105065 


000000 


525 


025374 






526 


025374 








025374 


104404 




527 








528 


025376 


004737 


016326 


529 


025402 


010465 


000000 


530 


025406 


004737 


016326 


531 


025412 


110265 


000000 


532 


0254 IS 


004737 


016326 


533 


025422 


016501 


000000 


534 


025426 


120102 




535 


025430 


001404 




539 


025432 








025432 


104456 






025434 


000626 






025436 


026242 






025440 


01546* 




540 


025442 






541 


025442 
025442 








025442 


104405 




542 








543 


025444 


005204 




544 


025446 


020427 


010000 


545 


025452 


001350 




546 








547 


025454 


005304 




548 


025456 


005002 




549 


025460 


004737 


016326 


550 


025464 


010465 


000000 


551 


025470 


004737 


016326 


552 


025474 


016501 


000000 


553 


0255C0 


005002 




554 


025502 


120102 




555 


025504 


001404 





BGNSU8 



TEST 4, SUBTEST 2 



I //////////// BEGIN SUBTEST //////////// 

T4.2: 

TRAP CSBSUS 



THIS SUBTEST WRITES RAM WITH ALL ZEROS 

THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 



20$: 



25$ j 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


tBR IF INIT WAS OK 




MOV 


R0.R1 


i CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


» FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


405 






.WORD 


SFIERR 






.WORD 


SFIMSG 


CLR 


R2 


jTEST DATA - 




CLR 


R4 


{STARTING RAM ADDRESS - 




JSR 


PC.CHKTSSR 


j WAIT FOR READY, NON- AMBIGUOUS 




CLRB 


TSDBCR5) 


j SET INTO MAINTENANCE MODE 





BGNSEG 



j >>>>>>> * >>> > 



BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 



JSR 


PC.CHKTSSR 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


MOVB 


R2.TSDBCR5) 


JSR 


PC.CHKTSSR 


MOV 


TSBA(R5),R1 


CMPB 


R1.R2 


BEQ 


30$ 


ERRHRD 


ERRN0.TSBAM2.EXPREC 



30$: 



j WAIT FOR READY, NON- AMBIGUOUS 
tLOAD ADDRESS INTO TSOB 
tWAIT FOR READY, NON-AMBIGUOUS 
I LOADS DATA INTO RAM LOCATION 
jWAIT FOR READY, NON-AMBIGUOUS 
>REA0S WRAP DATA 
jDOES WRITTEN(WRAP) - READ ? 
j BR IF OK, THEY ARE EQUAL 
j DATA NOT WRAPPED CORRECTLY 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
406 
TSBAM2 
EXPREC 



ENDSEG 





INC 


R4 




CMP 


R4, 010000 




BNE 


25$ 


35$. 


DEC 


R4 




CLR 


R2 


40t: 


JSR 


PC.CHKTSSR 




MOV 


R4,TSDB(R5) 




JSR 


PC.CHKTSSR 




MOV 


TSBACR5),R1 




CLR 


R2 




CMPB 


R1,R2 




BEQ 


43$ 



}<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

jNEXT ADDRESS 

tENO OF RAM MEMORY CHECK 

iBR. MORE RAM TO GO 

j SET BACK TO 7777 
j SET TO ALL ZEROS 
jWAIT FOR READY CSSR) TO SET 
,LOAD UP THE ADDRESS FOR RAM 
jWAIT FOR READY CSSR) TO SET 
l READ THE RAM CONTENTS BACK 
i LOOKING FOR 000000 (EXPECTED) 
iBOTH SHOU-D BE 00000000 BINARY 
j BR, IF DATA IS GOOD 



Fll 
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TEST 4: RAM TEST 



559 025506 
025506 
025510 
025512 
025514 

560 02551b 

561 025522 

562 025526 

563 025532 

564 025536 

565 025542 

566 025546 

567 025550 

571 025552 
025552 
025554 
025556 
025560 

572 025562 
025562 

573 025564 

574 025570 

575 025574 

576 025600 

577 025604 

578 025606 

579 025610 

580 025612 

581 025614 

585 025616 
025616 
025620 
025622 
025624 

586 025626 
025626 

587 025630 

588 025632 
589 

590 025634 
025634 
025634 

591 



104456 
000627 
026324 
015464 
012702 
010465 
004737 
110265 
004737 
016501 
120102 
001404 

104456 
000630 
026242 
015464 

104406 
004737 
010465 
004737 
116501 
010403 
000303 
060403 
120103 
001404 

104456 
000631 
026152 
015464 

104406 
005304 
002312 



104403 



ERRHRD ERRNO , TSBAM3 , EXPREC 



000377 
OOOOOO 
016326 
OOOOOO 
016326 
OOOOOO 



43*: 



MOV 


0000377, R2 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


MOVB 


R2,TSDBCR5) 


JSR 


PC.CHKTSSR 


MOV 


TSBACR5),R1 


CMPB 


R1.R2 


B6Q 


45* 


ERRHRD 


ERRNO, TSBAM2, EXPREC 



45*; 



CKLOOP 



016326 
OOOOOO 
016326 
000001 



JSR 


PC.CHKTSSR 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


MOVB 


TSBAH(R5).R1 


MOV 


R4.R3 


SWAB 


R3 


ADD 


R4.R3 


CMPB 


R1.R3 


BEQ 


501 


ERRHRD 


ERRNO, M2901, EXPREC 



50$ j 



CKLOOP 

DEC 
BGE 

ENDSUB 



R4 
40$ 



SEQ 0135 



i CHARACTERISTICS DATA NOT CORRECT 



TRAP 
.WORD 
.WORD 
.WORD 
,SET ALL ONES WORD 
I LOAD UP RAM ADDRESS POINTER 
{WAIT FOR READY, NON -AMBIGUOUS 
I WRITE DATA INTO RAM 
•WAIT FOR REAOY, NON -AMBIGUOUS 
;PEAD RAM CONTENTS BACK 
I CHECK WITH DATA WRITTEN 
i8R IF OK, DATA IN - DATA OUT 



C$ERHRD 
407 
TSBAM3 
EXPREC 



; WRITTEN DATA NOT - TO READ 




TRAP 


CJERHRD 


.WORD 


408 


.WORD 


TSBAM2 


.WORD 


EXPREC 


I SCOPE LOOP 




TRAP 


C$CLP1 


iWAIT FOR READY. NON-AMBIGUOUS 




j WORD WRITE TO SET UP ADDRESS 




{WAIT FOR READY, NON-AMBIGUOUS 




j HIGH BYTE READ OF TSBA 




,DATA PATTERN WRITTEN 




iHIGH TO LOW 




j TOTAL OF BYTES IN LOW BYTE 




iSUM OF BYTES WRITTEN TO TSDB - 


TSBAH 


j BR IF OK, THEY SHOULD BE 




l 2901 PROBLEM ADDER 




TRAP 


CiERHRO 


.WORD 


409 


.WORD 


M2901 


.WORD 


EXPREC 


j SCOPE LOOP 




TRAP 


C*CLP1 


j DROP RAM ADDRESS POINTER 




j NOT AT LOC. ZERO YET 





;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10045! 

TRAP C$ESUB 



Gil 
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TEST 4; RAM TEST 



SEQ 0136 



593 








594 


025636 
025636 








025636 


104402 




595 








596 








597 








598 








599 








600 








601 


025640 


004737 


015764 


602 


025644 


103405 




606 


025646 


010001 




607 


025650 








025650 


104455 






025652 


000632 






025654 


003646 






025656 


012024 




608 


025660 


012702 


177777 


609 


025664 


005004 




610 


025666 


004737 


016326 


611 


025672 


105065 


000000 


612 


025676 






613 


025676 








025676 


104404 




614 








615 


025700 


0O4737 


016326 


616 


025704 


010465 


000000 


617 


025710 


004737 


016326 


618 


025714 


110265 


0000^ 


619 


025720 


004737 


016326 


620 


025724 


016501 


000000 


621 


025730 


120102 




622 


025732 


001404 




626 


025734 








025734 


104456 






025736 


000633 






025740 


026242 






025742 


015464 




627 


025744 






628 


025744 
025744 








025744 


104405 




629 








630 


025746 


005204 




631 


025750 


020427 


010000 


632 


025754 


001350 




633 








634 


025756 








025756 


104410 






025760 


000152 




635 


025762 


005304 




636 


025764 


004737 


016326 


637 


025770 


012702 


000377 


638 


025774 


005001 




639 


0257 76 


010465 


000000 


640 


026002 


004737 


016326 



BGNSUB 



TEST 4, SUBTEST 3 



I //////////// BEGIN SUBTEST //////////// 

T4.3: 

TRAP C$BSUB 



THIS SUBTEST WRITES RAM WITH ALL ONES 
THEN WALKS A ZERO WORD DOWN THROUGH MEMORY 



JSR 


PC, SOFINIT 


BCS 


20$ 


MOV 


R0,R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20*; 



25$! 



MOV 


#177777, R2 


CLR 


R4 


JSR 


PC, CHKTSSR 


CLRB 


TSDBCR5) 



BGNSEG 



JSR 

MOV 

JSR 

MOVB 

JSR 

MOV 

CMPB 

BEQ 

ERRHRD 



30*: 



ENDSEG 



PCCHKTSSR 

R4.TSDBCR5) 

PC.CHKTSSR 

R2.TSD8CR5) 

PCCHKTSSR 

TS8A(R5),R1 

R1.R2 

30$ 

ERRN0,TSBAM2,EXPREC 



INC 


R4 


CMP 


R4, 010000 


BNE 


25$ 



ESCAPE SUB 



^5$r 


DEC 


R4 


40$; 


JSR 


PCCHKTSSR 




MOV 


0000377, R2 




CLR 


Rl 




MOV 


W4.TSDBCR5) 




JSR 


PC.CHKTSSR 



j DO INITIALISE ON CONTROLLER 
; BR IF INIT WAS OK 
l CONTENTS G~ TSSR REGISTER 
t FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 
j SET DATA AT ALL ONES 
j SET RAM ADDRESS AT ZERO 
jWAIT FOR READY, NON-AMBIGUOUS 
iSET INTO MAINTENANCE MODE 



C$ERDF 
410 
SFIERR 
SFIMSG 



j>> >>>>>>>>>> 



BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CS8SEG 



i WAIT FOR READY, NON -AMBIGUOUS 
j LOAD ADDRESS INTO TSDB 
i WAIT FOR READY. NON -AMBIGUOUS 
i LOADS DATA INTO RAM LOCATION 
»WAIT FOR READY, NON-AMBIGUOUS 
jREADS WRAP DATA 
jDOES WRITTEN(WRAP) - READ ? 
;BR IF OK, THEY ARE EQUAL 
{DATA NOT WRAPPED CORRECTLY 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
411 

TSBAM2 
EXPREC 



!<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP CSESEG 

jNEXT ADDRESS 

jEND OF RAM MEMORY CHECK 

j BR, MORE RAM TO GO 

jNO CHECK IF WRITTEN INCORRECTLY 

TRAP C$ESCAPE 

.WORD L 10046 -, 
jSET BACK TO 7777 
j WAIT FOR READY, NON -AMBIGUOUS 
j SET UP EXPECTED DATA REGISTER 
I CLEAN OUT REGISTER 
j SELECT ADDRESS IN RAM 
l WAIT FOR READY (SSR) 



Hll 
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641 026006 

642 026012 

643 026014 

647 026016 
026016 
026020 
026022 
026024 

648 026026 

649 026030 

650 026034 

651 026040 

652 026044 

653 026050 

654 026054 

655 026056 

659 026060 
026060 
026062 
026064 
026066 

660 026070 
026070 

661 026072 

662 026076 

663 026102 

664 026104 

665 026106 

666 026110 

667 026112 

671 026114 
026114 
026116 
026120 
026122 

672 026124 
026124 

673 026126 

674 026130 
675 

676 026132 
026132 
026132 

677 

678 026134 

679 026140 

680 026142 

681 026146 
026146 
026150 

682 
683 
684 
685 

686 026152 

687 026242 

688 026324 



016501 
120102 
001404 

104456 
000634 
026324 
015464 
005002 
010465 
004737 
110265 
004737 
016501 
120102 
001404 

104456 
000635 
026242 
015464 

104406 
004737 
116501 
010203 
000303 
060203 
120103 
001404 

104456 
0OO636 
026152 
015464 

104406 
005304 
001315 



104403 

0O4737 
103002 
000137 

104432 
000256 



040 
040 
127 



000000 



MOV 


TSBA(R5),R1 


CMPB 


R1,R2 


BEQ 


43$ 


ERRHRD 


ERRN0,TSBAM3, EXPREC 



000000 
016326 
000000 
016326 
000000 



43$: 



CLR 


R2 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


MOVB 


R2,TSDB(R5) 


JSR 


PC.CHKTSSR 


MOV 


TSBA(R5),R1 


CMPB 


R1.R2 


BEQ 


45$ 


ERRHRD 


ERRN0.TSBAM2, EXPREC 



45$; 



CKLOOP 



016326 
000001 



JSR 


PC.CHKTSSR 


MOVB 


TSBAH(R5),R1 


MOV 


R2.R3 


SWAB 


R3 


ADD 


R2,R3 


CMPB 


R1.R3 


BEQ 


5C$ 


ERRHRD 


ERRN0.M2901, EXPREC 



50$! 



016446 
025114 



124 
127 
162 



63$; 



I ♦ 

j LOCAL 

l ~ 

123 M2901: 
162 TSBAM2: 
X5X TSBAMSt 



CKLOOP 

DEC 
BNE 

ENOSUB 



JSR 
BCC 
JMP 
EXIT 



R4 
40$ 



PC.TSTLOOP 
63$ 

T4L00P 
TST 



TEXT MESSAGES FOR TEST 



SFQ 0137 



I PICK UP RAM CONTENTS 
iIS MEMORY STILL ALL ONES 
I BR, IF OK (ALL ONES) 
j MEMORY CHANGED AFTER ALL ONES 

TRAP 
.WORD 
.WORD 
.WORD 
»SET UP NEW EXPECTED 
»LOAD UP RAM ADDRESS POINTER 
»WAIT FOR REAOY. NON -AMBIGUOUS 
» WRITE DATA INTO RAM 
jWAIT FOR READY, NON- AMBIGUOUS 
j READ RAM CONTENTS BACK 
j CHECK WITH DATA WRITTEN 
I BR IF OK, DATA IN - DATA OUT 
I WRITTEN DATA NOT * TO READ 



WRITE 
C$ERHRD 
412 
TSBAM3 
EXPREC 



TRAP 


C$ERHRD 


.WORD 


413 


.WORD 


TSBAM2 


,WORD 


EXPREC 



5 SCOPE LOOP 

TRAP 

j WAIT FOR READY, NON-AMBIGUOUS 

j HIGH BYTE READ OF TSBA 

I DATA PATTERN WRITTEN 

i HIGH TO LOW 

j TOTAL OF BYTES IN LOW BYTE 

j SUM OF BYTES WRITTEN TO TSDB 

j BR IF OK, THEY SHOULD BE 

,2901 PROBLEM ADDER 

TRAP 
.WORD 
.WORD 
.WORD 

j SCOPE LOOP 

TRAP 

j DROP RAM ADDRESS POINTER 

j NOT AT LOC. ZERO YET 



C$CLP1 



TSBAH 



C$ERHRD 
414 
M2901 
EXPREC 

C$CLP1 



j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10046: 

TRAP C$ESUB 

j DO WE NEED TO ITERATE TEST ? 

, BRANCH IF NOT 

jEXFCUTE AGAIN 

j ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 10043 -» 



.ASCIZ • TSBA High Byte Not Sum of Last TSDB Write C2901 Error)' 
.ASCIZ * Write to TSDO Not Equal to Read of TSBA Low Byte* 
, ASCIZ 'Write To RAM Location Modified Another Location' 



Ill 
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122 101 



SEGi 0138 



669 026404 

690 

691 026426 

026426 

026426 104401 
692 



115 TST4I0: >A5CIZ 'RAM Verification' 
.EVEN 
ENDTST 



L10043; 



TRAP CSETST 



Jll 
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694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 

736 
737 
738 
739 
740 
741 
742 



74 3 

744 
745 
749 



750 



026430 
026430 
026430 
C26434 
026440 
026446 
026446 

G26452 
026452 
026452 

026454 
026460 
026462 
026462 
026464 
026466 
0264 70 
026472 



.SBTTL TEST 5? SECOND INITIALIZATION TEST 

THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST 
01 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO 
AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO ClEARED TO ZERO. 
THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF -TEST SEQUENCE 
(I.E., THAT IT IS REALLY BEING EXECUTED). FOR EACH OF TWO 
SU8TESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR 
INITIALIZING BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE 
IS PERFORMED: 

1. EACH RAM LOCATION AND 2901 REGISTERS 10 ANO 11 ARE SET 
TO ALL l'S BY USING WRITES INTO THE TSD8 REGISTER (LOW 
BYTE AND MAINTENANCE MODE WORD WRITES). 

2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON 
THE TSSR DESCRIBED IN INITIALIZATION TEST 01 ARE 
PERFORMED. 

3. 01' S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB, 
WHICH SHOULD CAUSE RAM LOCATION TO BE WRITTEN TO ALL 
l'S SINCE 2901 REGISTERS 10 ANO 11, SPECIFYING THE RAM 
ADDRESS, SHOULD BE 0. RAM LOCATION IS VERIFIED BY 
WRITING A WORD OF ZEROS INTO THE TSDB. THE RESULTING 
LOW BYTE OF TSBA SHOULD CONTAIN ALL l'S. 

4. THE ENTIRE RAM IS SCANNED. LOCATION SHOULD CONTAIN 
ALL l'S AND THE REMAINING LOCATIONS, EXCEPT FOR THE 
MESSAGE BUFFER IMAGE AREA, SHOULD CONTAIN 0. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
MOST LIKELY DUE. TO A ROM, PIPELINE OR SEQUENCER PROBLEM 
OR A TIMING PROBLEM, 



012700 
004 737 
012737 



027402 
016500 
000024 



002214 



005037 002220 



104402 

004737 015764 
103404 

104455 
000765 
003646 
012024 
012702 177777 



T5L00P: 



BGNTST 

MOV 
JSR 
MOV 



0TST5ID.R0 
PC.TSTSETUP 
020, .LOOPCNT 



CLR FATFLG 
BGNSUB 



JSR PC.SOFINIT 

BCS 10$ 

ERRDF ERRNO , SF IERR , SF IMSG 



SEQ 0139 



T5: j 
{ASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
j PERFORM ?0 ITERATIONS 

; CLEAR THF FATAL ERROR FLAG 

I //////////// BEGIN SUtiltSI //////////// 

T5.li 

TRAP 



10*: 



MOV 



#-1, R2 



jDO A SOFT TO START 

t BRANCH IF O.K. 

j REPORT ERROR AND DROP DRIVE 

TRAP 
. WORD 
.WORD 
.WORD 

tALL ONE DATA PATTERN 



CSBSUB 



C5ERDF 
501 

SFIERR 
SFIMSG 



Kll 
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751 026476 

752 026500 

753 026504 

754 026510 

755 026514 

756 026520 

757 026524 

758 026530 

759 026532 

760 026536 

761 026540 
026540 

762 026542 

763 026546 

764 026552 

765 026554 

766 026560 

767 026564 

768 026566 

772 026570 
026570 
026572 
026574 
026576 

773 026600 

774 026604 
026604 

775 026606 
026606 
026610 

7 76 026612 
777 026616 
7 78 026622 
7 79 026626 

780 026632 

781 026636 

782 026642 

783 026646 

784 026652 

785 026656 

786 026662 

787 026666 

788 026670 

789 026672 
026672 
026674 
026676 
026700 

790 026702 

791 026706 
026706 

792 026710 
026710 
026712 

793 026714 

794 026720 

795 026722 



005004 
004^37 
105065 
004737 
010465 
004737 
110265 
005204 
020427 
003762 

104433 
004737 
016501 
010102 
042702 
052702 
020102 
001406 

104455 
000766 
003701 
012072 
005237 

104406 

104410 
000170 
004737 
105065 
004737 
005065 
012702 
004737 
110265 
004737 
005065 
004737 
116501 
120102 
001406 

104455 
0O0766 

027470 
015464 
005237 

104406 

104410 
000066 
012704 
005002 
004737 



016326 
000000 
016326 
000000 
016326 
000000 

007777 



016326 
000002 

176277 
002200 



002220 



016326 
OOOOCO 
016326 
OOOOOO 
000377 
016326 
OOOOOO 
016326 
OOOOOO 
016326 
OOOOOO 



002220 
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CLR 


R4 


JSR 


PC.CHKTSSR 


15$ j CLRB 


TS0BCR5) 


JSR 


PC.CHKTSSR 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


MOVB 


R2.TSDBCR5) 


INC 


R4 


CMP 


R4, 07777 


BLE 


15$ 


BRESET 




JSR 


PC.CHKTSSR 


MOV 


TSSRCR5),R1 


MOV 


R1.R2 


BIC 


*tC<HIADDR!0FL>,R2 


BIS 


*SSR!NBA,R2 


CMP 


R1.R2 


BI-IQ 


20$ 


EK9DF 


LRRNO.SFHERR.SFFMSG 



20$: 



25$ i 



INC 
CKLOOP 



FATFLG 



ESCAPE SU3 



JSR 


PC.CHKTSSR 


CLRB 


TS0BCR5) 


JSR 


PC.CHKTSSR 


CLR 


TS0BCR5) 


MOV 


03/7, R2 


JSR 


PC.CHKTSSR 


MOVB 


R2.TSDBCR5) 


JSR 


PC.CHKTSSR 


CLR 


TS0BCR5) 


JSR 


PC.CHKTSSR 


MOVB 


TSRA(R5).R1 


CMPB 


R1.R2 


BEQ 


25$ 


ERROF 


ERRN0.T5ADDR.EXPREC 



000310 
016326 



INC 
CKLOOP 


FATFLG 


ESCAPE 


sue 


MOV 
CLR 
JSR 


0310. R4 

R2 

PCiCHKTSSR 



SEQ 0140 



j STARTING RAM ADDRESS 

{WAIT FOR READY, NON-AMBIGUOUS 

l SET MAINTENANCE MODE 

j WAIT FOR READY. NON- AMBIGUOUS 

j SET THE NEXT RAM ADDRESS 

{WAIT FOR READY, NON- AMBIGUOUS 

jLOAD TEST DATA 

{NEXT AODRESS TO TEST 

, COMPARE TO LAST ADDRESS 

{BRANCH TILL ALL DATA WRITTEN 

I ISSUE A BUS RESET 

TRAP C$RESET 
j WAIT FOR READY, NON-AMBIGUOUS 
{GET THE CONTENTS OF TSSR 
{CONTENTS OF TSSR 
j THESE BITS MAY BE SET 
{READY AND NEW DATA SHOULD BE SET 
{COMPARE EXPECTED TO RECEIVED 
{BRANCH IF COMPARE 
{REPORT A FATAL ERROR 



TRAP 


C$ERDF 


.WORD 


502 


.WORD 


SFHERR 


.WORD 


SFFMSG 



{SET FATAL ERROR FLAG 

{LOOP ON ERROR IF FLAG SET 

TRAP C$CLP1 

{EXIT IF FATAL ERROR DETECTED 

TRAP C$ESCAPE 
.WORD M0050-. 

jWAIT FOR SSR TO SET 

{PUT BACK INTO MAINTENANCE MODE 

,WAIT FOR READY, NON-AMBIGUOUS 

{SET ADDRESS BACK TO 0000 

jWAIT FOR REAOY, NON-AMBIGUOUS 

{SHOULD POINT TO RAM 

{WAIT FOR READY, 

{SELECT LOCATION 

{WAIT FOR READY, 

jREAO RAM LOCATION SPECIFIED 

{LOCATION SHOULD BE 377 OCTAL 

jBR IF OK 

{WASN'T POINTING 

TRAP C$ERDF 
.WORD 502 
.WORD T5ADDR 
.WORD EXPREC 

{SET THE FATAL ERROR FLAG 

{SCOPE LOOP 

TRAP C$CLP1 

{NO MORE CHECKS IF FATAL ERROR 

TRAP C$ESCAPE 
.WORD 1. 10050- ♦ 

{START WITH LGC 310 

{MEMORY EXPECTED SHOULD BE OOOOOO 

{WAIT FOR READY, NON-AMBIGUOUS 



NON -AMBIGUOUS 



NON -AMBIGUOUS 



'0 CORRECT LOC. 



Lll 
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30$; 



796 


026726 


010465 


000000 


797 


026732 


004 737 


016326 


793 


026736 


116501 


000000 


799 


026742 


120102 




800 


026744 


001406 




801 


026746 








02G746 


104455 






026750 


000766 






026752 


027432 






026754 


012072 




802 


026756 


005237 


002220 


803 


026762 








026762 


1044C6 




804 


026764 








026764 


104410 






026766 


000012 




805 


026770 


005204 




P.06 


0267 72 


020427 


000400 


807 


026776 


001353 




808 








609 


027000 
027000 








027000 


104405 




810 








811 


027002 


005737 


002220 


812 


027006 


001404 




813 


02701C 


004737 


017172 


814 


027014 


005037 


002220 


815 


027020 







40$; 
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10V 


R4JSD6CR5) 


j SELECT LOCATION SPECIF £E0 




JSR 


PC.CHKTSSR 


,WAIT FOR READY, NON -AMBIGUOUS 




MOVB 


TSBACR5),R1 


iREAD LOG CONTENTS 




CMPB 


R1.R2 


» CHECK MEMORY FOR 000000 




BEQ 


40* 


l BRANCH IF DATA OKAY 




ERRDF 


ERRN0.T5MEM.SFFMSG 


{MEMORY NOT ZERO AFTER INIT. 








TRAP 


C$ERDF 






.WORD 


502 






.WORD 


T5MEM 






.WORD 


SFFMSG 


INC 


FATFLG 


{SET THE FATAL ERROR FLAG 




CKLOOP 












TRAP 


C$CLP1 


ESCAPE 


sue 


{EXIT ON FATAL ERROR 








TRAP 


C$ESCAPE 






.WORD 


L10050-. 



INC 
CMP 
BNE 

ENDSUB 



SEQ 0141 



R4 

R4.O40O 

30$ 



;LO0K AT NEXT RAM LOC. 

{AT TOP OF RAM ADDRESS SPACE 

{BRANCH TILL ALL MEMORY TESTED 

j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10050s 

TRAP C$ESUB 



TST 


FATFLG 


BEQ 


50$ 


JSR 


PC.CKDROP 


CLR 


FATFLG 



50$; 



iIS FATAL ERROR FLAG SET ? 
{BRANCH IF NOT 
{NO LOOP, TRY TO 
iCLCAR THE FATAL 



DROP DEVICE 
ERROR FLAG 



Mil 
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817 027020 






027020 






027020 


104402 




818 






819 027022 


004737 


015764 


820 027026 


103404 




824 027030 






027030 


104455 




027032 


000767 




027034 


003646 




027036 


012024 




825 027040 


012702 


177777 


826 027044 


005004 




827 027046 


004737 


016326 


828 027052 


105065 


000000 


829 027056 


004737 


016326 


830 027062 


010465 


000000 


831 027066 


004737 


016326 


832 027072 


110265 


000000 


833 027076 


005204 




834 027100 


020427 


007777 


835 027104 


003762 




836 027106 


005065 


000002 


837 027112 


004737 


016326 


838 027116 


016501 


000002 


839 027X22 


010102 




640 027124 


042702 


l?62/7 


841 027130 


052702 


002200 


842 027134 


020102 




e43 027136 


001406 




847 027140 






027140 


104455 




027142 


000770 




027144 


003701 




027146 


012072 




848 027150 


005237 


002220 


849 027154 






027154 


104406 




850 02 7156 






027156 


104410 




027160 


000170 




851 027162 


004737 


016326 


852 027166 


105065 


000000 


853 027172 


004737 


016326 


854 027176 


005065 


000000 


855 027202 


012702 


000377 


856 02 7206 


004737 


016326 


857 027212 


110265 


000000 


858 027216 


004737 


016326 


859 027222 


005065 


000000 


860 027226 


004737 


016326 


861 027232 


116501 


000000 


862 027236 


1201C2 




863 027240 


001406 




864 027242 






027242 


104455 




027244 


000770 
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BGNSUB 



JSR PC.SOFINIT 

BCS 10$ 

ERRDF ERRNO , SFIERR , SFIMSG 



20$: 



INC 
CKLOOP 



FATFLG 



escape sue 



JSR 


PC.CHKTSSR 


CLRB 


TSDBCR5) 


JSR 


PC.CHKTSSR 


CLR 


TSDBCR5) 


MOV 


#377, R2 


JSR 


PC.CHKTSSR 


MOVB 


R2.TSDBCR5) 


JSR 


PC.CHKTSSR 


CLR 


TS0BCR5) 


JSR 


PC.CHKTSSR 


MOVB 


TSBA^R5),R1 


CMPB 


R1.R2 


BtQ 


25$ 


ERRQF 


ERRNQ,T5ADD 



SEQ 0142 



10$: 


MOV 


#-l,R2 \ 




CLR 


R4 j 




JSR 


PC.CHKTSSR j 


15$: 


CLRB 


TS0BCR5) { 




JSR 


PC.CHKTSSR j 




MOV 


R4.TSDBCR5) j 




JSR 


PC.CHKTSSR } 




MOVB 


R2.TSDBCR5) « 




INC 


R4 i 




CMP 


R4. 07777 i 




BLE 


15$ j 




CLR 


TSSRCR5) i 




JSR 


PC.CHKTSSR i 




MOV 


TSSRCR5).R1 t 




MOV 


R1.R2 j 




oie 


4tC<HIADDK!GFL>,R2 I 




BIS 


*SSR!N8A,R2 j 




CMP 


R1.R2 i 




BEQ 


20$ i 




ERROF 


ERRNO. SFHERR.SFFMSG j 



;//////////// 8EGIN SUBTEST //////////// 

T5.2: 

TRAP C$BSUB 

jDO A SOFT TO START 

I BRANCH IF O.K. 

j REPORT ERROR AND DROP DRIVE 

TRAP C$ERDF 
.WORD 503 
.WORD SFIERR 
.WORD SFIMSG 

ALL ONE DATA PATTERN 

STARTING RAM ADDRESS 

WAIT FOR READY. NON-AMBIGUOUS 

SET MAINTENANCE MODE 

WAIT FOR READY, NON- AMBIGUOUS 

SET THE NEXT RAM ADDRESS 

WAIT FOR READY, NON -AMBIGUOUS 

LOAD TEST DATA 

NEXT ADDRESS TO TEST 

COMPARE TO LAST ADDRESS 

BRANCH TILL ALL DATA WRITTEN 

ISSUE A SOFT RESET 

WAIT FOR READY. NON-AMBIGUOUS 

GET THE CONTENTS OF TSSR 

CONTENTS OF TSSR 

THESE BITS MAY BE SET 

READY ANO NEW DATA SHOULD BE SET 

COMPARE EXPECTED TO RECEIVED 

BRANCH IF COMPARE 

REPORT A FATAL ERROR 



TRAP 


CIERDF 


.WORD 


504 


.WORD 


SFHERR 


.WORD 


SFFMSG 



{SET FATAL ERROR FLAG 

j LOOP ON ERROR IF FLAG SET 

TRAP C$CLP1 

jEXIT IF FATAL ERROR DETECTED 

TRAP C$ESCAPF 
.WORD L10051-. 

jWAIT FOR SSR TO SET 

j PUT BACK INTO MAINTENANCE MODE 

jWAIT FOR READY, NON -AMBIGUOUS 

I SET ADDRESS BACK TO 0000 

jWAIT FOR READY. NON- AMBIGUOUS 

j SHOULD POINT TO RAM 

jWAIT FOR READY, NON- AMBIGUOUS 

j SELECT LOCATT.ON 

» WAIT FOR READY, NON -AMBIGUOUS 

,READ RAM LOCATION SPECIFIED 

{LOCATION SHOULD BE 377 OCTAL 

j BR IF Ql< 

I WASN'T POINTING TO CORRECT IOC. 

TRAP C$ERDF 
% WORD 504 



Nil 
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865 
666 

867 



868 
869 
670 
8/1 
872 
873 
674 
875 
876 



877 
878 

879 



880 
881 
882 
883 
884 



885 
886 
887 
888 
889 
690 
891 
892 



893 
894 
895 
896 
897 
5^8 
899 
900 
901 
902 



903 



027246 
027250 
027252 
027256 
027256 
027260 
027260 
027262 
027264 
027270 
027272 
027276 
02 7302 
027306 
027312 
027314 
027316 
027316 
027320 
027322 
027324 
027326 
027332 
027332 
027334 
027334 
027336 
027340 
027342 
027346 

027350 
027350 
027350 

027352 
027356 
027360 
027364 
027370 
027372 
027376 
027376 
027400 



027402 
027432 

0274/0 

027532 
02/532 
02753c 



027470 
015464 
005237 

104406 

104410 
000066 
012704 
005002 
D04 737 
010465 
004737 
116501 
120102 
00140a 

104455 
000770 
027432 
012072 
005237 

104406 

104410 
000012 
005204 
020427 
001353 



104403 

005737 
001402 
004737 
004/37 
103002 
000137 

104432 
000132 



105 
111 
111 



104401 



002220 



25$: 



INC 
CKLOOP 



FATFLG 



ESCAPE SUB 



000310 

016326 
OOOOOO 
016326 
OOOOOO 



30$; 



MOV 


4310.R4 


CLR 


R2 


JC-. 


PC.CHKTSSR 


! 


R4.TSDBCR5) 


L 1 ). . 


PC.CHKTSSR 


MOVB 


TSBA(R5),R1 


CMPB 


R1.R2 


BEQ 


40$ 


ERRDF 


ERRN0,T5NEM,SFhMSG 



002220 



40$; 



000400 



INC 
CKLOOP 


FATFLG 


ESCAPE 


SUB 


INC 
CMP 
BNE 


R4 

R4.0400 
30$ 



ENDSUB 



002220 

017172 

016446 

026446 





TST 


FATFLG 




BEQ 


50$ 




JSR 


PC.CKDROP 


50$; 


JSR 


PC.TSTLOOP 




DCC 


60$ 




JMP 


T5L00P 


60$; 


EXIT 


TST 



J ♦ 



j LOCAL TEXT MESSAGES FOR TEST 





SEQ 0143 


.WORD 


T5ADDR 


.WORD 


EXPRF.C 


j SET THE FATAL ERROR FLAG 




j SCOPE LOOP 




TRAP 


C$CLP1 


iNO MORE CHECKS IF FATAL ERROR 




TRAP 


C$ESCAPE 


.WORD 


L10051-. 


j START WITH uCC 310 





j MEMORY EXPECTED SHOULD BE OOOOOO 

jWAIT FOR READY, NON- AMBIGUOUS 

{SELECT LOCATION SPECIFIED 

jWAIT FOR READ*, NON-AMBIGUOUS 

{READ LOC CONTENTS 

{CHECK MEMORY FOR OOOOOO 

{BRANCH IF DATA OKAY 

{MEMORY NOT ZERO AFTER INIT. 

TRAP CJERDF 
. WORD 504 
.WORD T5MEM 
.WORD SFFMSG 

{SET THE FATAL ERROR FLAG 

TRAP C$CLP1 

{EXIT ON FATAL ERROR 

TRAP CiESCAPE 
.WORD 1.10051- . 

{LOOK AT NEXT RAM LOC. 

;AT TOP OF RAM ADDRESS SPACE 

{BRANCH TILL ALL MEMORY TESTED 

j\\\\\\\\\\\\\ END SUBTEST \\\\\\W\\\\\ 

L 10051 ? 

TRAP CtESUB 

{IS FATAL ERROR FLAG SET ? 

{BRANCH IF NOT 

{NO LOOP, TRY TO DROP DEVICE 

{SHOULD WE DO ITERATIONS ? 

{BRANCH IF NOT 

{LOOP UNTIL COUNT EXPIRED 

{ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 10047 -. 



1/0 
156 
156 



164 
143 
143 



TST5ID; 

T5MEM; 

I5ADUR; 



.ASCI 7 
.ASCI. 

.ASCI/ 
.EVlN 

tNVSTUT 



Extended Initialization' 
Incorrect RAM Data After Inif 
Incorrect RAM Address After In it* 



L 1004 7; 



TRAP 



CUiTST 



Bl'c>. 
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90b 
906 
907 
908 
909 
910 
911 
91* 
913 
914 
91*. 
916 
917 
918 
919 
920 
9^1 

922 

923 

9P4 

92b 

926 

9?; 

928 

929 

930 

931 

932 

953 

934 

93b 

436 

95 7 

938 

939 

940 

941 

94 2 

943 

944 

94b 

946 

947 

948 

949 

950 

9b 1 

9b? 

9b 3 

9b4 

9b b 

9b6 

9b 7 

9b8 

9b9 

9*,G 

%1 
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SEGI 0144 



.SBfTL TES1 6i COMMANO REJECT 



THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADORESS 
(NBA) BIT BEING SET IN TSSR, AND THAT THE TS8A AND TSSR 
REGISTERS ARE LEFT IN THF. PROPER STATE AFTER EACH COMMANO IS 
REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING. BASIC 
COMMAND DECOOING AND DATI DMA HANDLING. THIS TEST CONTAINS TUO 
SUBTESTSi SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER 
THAN WRITE CHARACTERISTICS) WITH TKUt INTERRUPT ENABLE (IE) BIT 
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COMMANOi SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 'BUT 
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED. SUBTEST 1 
SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED 
INTERRUPTS. THE COMMAND WORD IN THE COMMANO BUFFER IS 
INITIALIZED TO 100OO0 (OCTAL) AND THE REMAINING THREE WORDS IN 
IHE COMMANO BUFFER ARE SET TO KNOWN UNIQUE PATTERNS. THEN THE 
FOLLOWING SEQUENCE IS PERFORMED! 

X. INITIALIZE THE CONTROLLER Bt WRITING INTO THE TSSRj 
PROPER INITIAL CONDITIONS ARE VERIFIED. 

2. TSD6 IS WRITTEN WITH ADDRESS Of THE COMMANO BUFFER TO 
START PROCESSING. 

5. THE PROGRAM WAITS FOR SSR TO SE T j If SSR DOES NOT SET, 
AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED, 

4. THE CONTENTS OF TSSR ARE CHECKED. TSSR IS CORRECT IF 
IT CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6 
0EPENO5 UPON THE STATE OF THE TAPE TRANSPORT). 

b, THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN 
THE INITIAL COMMAND BUFFER AOORESS (LOADED IN STEP 2) 
PLUS 10 (OCTAL)i I.E., TSBA SHOULD POINT TO THE WORD 
JUST AFTER THE COWANO PACKET (NOTE THAT 4 COMMANO 
PACKET WORDS ARE ALWAYS FETCHED). 

6. USING THE MAINTENANCE MOOE WRAPAROUND FUNCTIONS, THE 
COMMANO IMAGE BLOCK IN THE M7196'S RAM (LOCATIONS 

201 210 (OCTAL)) ARE CHECKEDi THE IMAGE SHOULD CONTAIN 
A COPY OF THE FOUR COMMANO PACKET WORDS A5 SET UP IN 
CPU MEMORY. 

7. THE COMMAND WORD IN THE C0*1AN0 BUFFER IS INCREMENTED 
TO THE NEXT PATTERN NOT CONTAINING WRITE 

CHARACTERISTICS OR IE. THE REMAINING THREE WORD OF THE 
COMMANO BUFFER ARE SEQUENCED WITH PSEUOO -RANOOM DATA. 
IF THE COMMANO WORD HAS NOT REACHED ITS MAXIMUM VALUE 
(177777*1), THE TEST SEQUENCE IS REPEATED. 



SUUTEbT a IS IDENTICAL TO SU&TLST 1, EXCEPT THAT THE PROGRAM 



Zl?. 
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SEQ 0145 



962 








9f 3 








964 








965 


027534 
027534 






9 70 


027534 


012700 


030763 


971 


027540 


004737 


016500 


972 


027544 


012737 


000024 


973 


02 7552 






974 


02 7552 
027552 








027552 


104402 




<*75 








976 


027554 








027554 


012700 


000000 




027560 


104441 




977 


027562 


012704 


030440 


9/8 


027566 


012703 


002750 


979 


0275 72 


0123.4 




980 


027574 








027574 


104404 




981 


027576 


004737 


015764 


962 


027602 


103405 




986 


027604 


010O01 




987 


027606 








027606 


104455 






027610 


001131 






027612 


003646 






027614 


012024 




988 


027616 


005037 


002220 


989 


027622 


005037 


002222 


990 


027626 


004737 


016326 


991 


02 7632 


042714 


000200 


992 


027636 


010465 


oooooo 


993 


027642 


004737 


016240 


994 


02 7646 


103407 




995 


027650 


010O01 




999 


027652 








027652 


104455 






027654 


001132 






027656 


0304 75 






027660 


012036 




1000 


027662 


005237 


002220 


1001 


027666 








027666 


104406 




1002 


0276/0 








027670 


104410 






027672 


000170 




1003 


027674 


005 717 


002222 


1004 


02 7 700 


001404 




1008 


027 702 








027 702 


104456 






027 704 


001133 






027706 


030553 






027710 


012036 




1009 


027712 


012702 


102206 


1010 


027716 


004757 


016326 



CAUSES THE IE 
VERIFIES THAT 



BIT TO BE SE 

AN INTERRUPT 



' IN EACH 
OCCURS, 



COMMAND WORD AND THEN 



002214 



T6L00P} 



BGNTST 

MOV 
JSR 
MOV 

BGNSU6 



5*i 



101 j 



151; 



0TST6TD.R0 

PC.TSTSETUP 

O20..L00PCNT 



T6: i 
lASCII MESSAGE TO IDENTIFY 
»D0 INITIAL TEST SETUP 
jPERFQRH 20 ITERATIONS 



TEST 



l///' 4 /////.'// 



BEGIN 
T6.1 



SUBTEST 



/////,'////// 



TRAP CIBSUB 



SETPRI tfPRIOO 



MOV *T6PACKET,R4 

MOV ♦TST8LK.R3 

MOV CR3)*.CR4) 
BGNSEG 



22*: 



jLOWER PRIORITY TO ALLOW INTERRUPTS 

rlOV *PRIOO,RO 
XRAP CISPRI 

»GET THE ADDRESS Of COMMANO PACKET 

iBLOCK OT TEST DATA 

i INSERT THE NEXT TEST DATA WORD 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>»>>>> 



JSR 


PC.SOf'INIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO,SriERR,SFIMSG 



CLR 


FATFLG 


CUR 


INTRECV 


JSR 


PC.CMKTSSR 


BIC 


♦eiT7,(R4) 


MOV 


R4,TSD6(R5) 


JSR 


PC.WAITF 


BCS 


151 


MOV 


ro.r; 


ERRDF 


ERRN0,T6SSR I PKTSSR 



TRAP 

,00 SOFT INIT OF CONTROLLER 

»BR IF SOFT INIT • OK 

I SAVE CONTENTS OF TSSR 

I DEVICE FATAL ERROR DIKING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

I CLEAR FATAL ERROR FLAG 

iCLEAR INTERRUPT RECEIVED FLAG 

iWAIT FOR REAOY, NON-AMBIGUOUS 

iDISABLE INTERRUPTS 

i SET THE PACKET AD0RESS 

iWAIT FOR SSR TO SET 

iBR IF CAKRY SET (GOOO RETURN) 

l SAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 



CJBSEG 



CIERDF 
601 

SFIERR 
SFIMSG 









TRAP 


ClERDr 








.WORD 


602 








.WORD 


T6SS9 








.WORD 


PKTSSR 


INC 


FATFLU 




j SET FATAL ERROR *LAG 




CKLOOP 
ESCAPE 


SUB 




lLOOP ON ERROH, IF FLAG SET 

TRAP 

iBY-PASS SL6TEST IF FATAL ERROR 

TRAP 
.WORD 


CICI.P1 

C»E SCAPE 
L10053-. 


TST 


INTRECV 




jDID AN INTERRUPT OCCUR 7 




BEQ 


22% 




i BRANCH IF NOT 




ERRHRD 


ERRN0.T6INT 


.PKTSSR 


TRAP 

.WORD 
.WORD 
.WORD 


CtERHRD 
603 
T6INT 
PKTSSR 



mov ♦SCtNeA»SSRtTSREJ,Rd 
JSR PCtCHKT&SR 



jEXPEC^fD CONTENTS OF TSSR 
iWAIT FQR READY* NQN-AM&IGUQU! 



D12 
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1011 


027722 


016501 


000002 


1012 


027726 


052701 


000100 


1013 


027752 


001402 




1014 


027754 


052702 


000100 


1015 


027740 


020201 




1016 


027742 


001404 




1020 


027744 








027744 


104456 






027746 


001154 






027750 


050450 






027752 


012056 




1021 


027754 








027754 


104406 




1022 


027756 


004757 


016326 


1023 


027762 


016501 


000000 


1024 


027766 


010402 




1025 


027770 


062702 


000010 


1026 


027774 


020102 




1027 


027776 


001404 




1051 


050000 








050000 


104456 






030002 


001155 






050004 


0507H 






050006 


015464 




1052 








1053 








1054 


050010 


004737 


011104 


1055 


050014 


105404 




1039 


050016 








050016 


104456 






050020 


001156 






050022 


004741 






050024 


015500 




1040 


050026 
050026 








050026 


104405 




1041 


050050 


011500 




1042 


050052 


042700 


177/40 


1045 


050056 


020027 


000004 


1044 


050042 


001002 




1045 


050044 


062705 


000002 


1046 


050050 


020527 


003056 


1047 


050054 


105002 




1048 


050056 


000157 


027572 


1049 








1050 


050062 
050062 








050062 


104403 




1051 








1052 


050064 


005757 


002220 


1053 


050070 


001402 




1054 


030072 


004737 


017172 



25*; 



9s44 
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MOV 


TSSR(R5),Rl 




(GET THE CONTENTS OF TSSR 




BIT 


00FL.R1 




iIS OFF-LINE BIT SET ? 




BEQ 


25$ 




iBRANCH IF NOT OFF-LINE 




BIS 


*0FL,R2 




»SET OFF-LINE IN EXPECTED DATA 




CMP 


R2,R1 




jDOES EXPECTED MATCH RECEIVED 7 




BEQ 


50$ 




jOKAY IF MATCH 




ERRHRD 


\ ERRN0.T6NBA, 


, PKTSSR 


j NBA NOT SET TO REJECT 

TRAP 
.UORD 
.WORD 
.WCRD 


CIERHRD 
604 
T6NBA 
PKTSSR 



SEQ 0146 



30? : 



CKLOOP 

JSR 
MOV 
MOV 
ADD 
CMP 
BEQ 
ERRHRD 



35$; 



40$; 



JSR 
BCS 
ERRHRD 



ENOSEG 



45$; 



50$; 



ENDSU6 



PC*CHKTSSR 

TSBA(R5),R1 

R4.R2 

010,R2 

R1,R2 

35$ 

ERRN0,T6TSBA,EXPREC 



PC.CKRAM 

40$ 

ERRNO , PKTRAM , RAMERR 



MOV 


(R3),R0 


BIC 


0177740. RO 


CMP 


R0.04 


BNE 


45$ 


ADD 


*2, R3 


CMP 


R3.0TBLEND 


BHIS 


50$ 


JMP 


5$ 



1ST 


FATFLG 


BEQ 


60$ 


JSR 


PC.CKDROP 



I LOOP ON ERROR ? 

TRAP CiCLPl 

lUAIT FOR READY, NON-AMBIGUOUS 

,GET TSBA REGISTER CONTENTS 

I START OF THE PACKET 

I EXPECT TSDA TO PACKET ♦ 10 

, COMPARE EXPECTED TO RECEIVED 

j ERROR IF NOT EQUAL 

l PRINT THE ERROP 6 EXPD/RECV 

TRAP CIERHRD 

. WORD 605 
.WORD T6TSBA 
.WORD EXPREC 



tSEE IF DATA IN RAM IS CORRECT 

tBRANCH IF PACKET IN RAM IS CORRECT 

j REPORT THE RAM ERROR(S) 

TRAP CIERHRD 

. WORD 606 
.WORD PKTRAM 
.WORD RAMERR 

!<<<<<<<<<<<<< ENO SEGMENT <<<<<<<<<<<<< 

10000$; 

TRAP CIESEG 

, PACKET COMMAND WORD 

iGET BITS 0-4 

iDON'T TEST WRITE CHARACTERISTICS 

tBRANCH IF 0*< 

;GET NEXT UORD FROM DATA TABLE 

REACHED ENO OF TABLE ? 

t F?RANCH IF ENO OF TABLE 

jCONTINUE TEST WITH NEW DATA 

|\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\ \\\ \ 

L10053; 

TRAP C$ESUB 



,AN> FATAL ERRORS ? 

j BRANCH IF NOT 

j TRY TO DROP THE UNIT 



E12 
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1056 


030076 
030076 








030076 


104402 




1057 








1058 


030100 








030100 


012700 


000000 




030104 


104441 




1059 


030106 


012704 


030440 


1060 


030112 


012703 


002750 


1061 


030116 


012314 




1062 


030120 








030120 


104404 




1063 


030122 


0O4737 


015764 


1064 


0*0126 


103405 




1068 


030130 


010001 




1069 


030132 








030132 


104455 






030134 


001137 






030136 


003646 






030140 


012024 




1070 


030142 


005037 


002220 


1071 


030146 


005037 


002222 


1072 


030152 


004737 


016326 


1073 


030156 


052714 


000200 


1074 


030162 


010465 


000000 


1075 


030166 


004737 


016240 


1076 


030172 


103407 




1077 


030174 


010001 




1081 


030176 








030176 


104455 






030200 


001x40 






030202 


030475 






030204 


012036 




1082 


030206 


005237 


002220 


1083 


030212 








030212 


104406 




1084 


030214 








030214 


104410 






030216 


000170 




ioe5 


030220 


005737 


002222 


1086 


030224 


001004 




1090 


030226 








030226 


104456 






030230 


001141 






030232 


030631 






030234 


012036 




1091 


030236 


012702 


102206 


1092 


030242 


004737 


016326 


1093 


030246 


016501 


000002 


1094 


030252 


032701 


OC0100 


1095 


030256 


001402 




1096 


030260 


052702 


000100 


1097 


030264 


020201 




1098 


030266 


001404 




1102 


030270 








0302/0 


104456 






030272 


001142 





60S 



5*: 



BGNSUB 



SETPR1 OPRIOO 



MOV *T6PACKET,R4 

MOV 0TSTBLK.R3 

MOV (R3)*,CR4) 
BCNSEG 

JSR PC.SOFIhIT 

BCS 10* 

MOV R0.R1 

ERRDF ERRNO , SFIERR , SFIMSG 



10$; 



CLR 


FATFLG 


CLR 


INTRECV 


JSR 


PC.CHKTSSR 


BIS 


OBIT7.CR4) 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRNO, T6SSR, PKTSSR 



15$; 



22$ j 



25$: 



INC FATFLG 
CKLOOP 

ESCAPE SUB 



TST INTRECV 

BNE 22$ 

ERRHRD ERRNO, T6NINT, PKTSSR 



MOV 0SC ! NB A ! SSR ! TSRE J , R2 

JSR PC.CHKTSSR 

MOV TSSR(R5).R1 

BIT 0OFL.R1 

BEQ 25$ 

BIS 00FI.R2 

CMP R2.R1 

BEQ 30$ 

ERRHRD ERRNO , T6NBA , PKTSSR 



SEQ 0147 



j//////////// BEGIN SUBTEST //////////// 

T6,2; 

TRAP C$BSUB 

, LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV «PRIOO,RO 
trad r tSPRI 

I GET THE ADDRESS OF COMMAND PACKET 

, START OF TEST DATA 

jPLACE NEXT DATA WORD IN PACKET 

)>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 



TRAP 

I DO SOFT INIT OF CONTROLLER 

jBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

j DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

I CLEAR FATAL ERROR FLAG 

j CLEAR INTERRUPT RECEIVED FLAG 

I WAIT FOR READY, NON-AMBIGUOUS 

I ENABLE INTERRUPTS 

j SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

t BR IF CARRY SET CGOOO RETURN) 

I SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

I SET FATAL ERROR FLAG 

i LOOP ON ERROR. IF FLAG SET 

TRAP 

{BY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 

{DID AN INTERRUPT OCCUR ? 

» BRANCH IF YES 

I REPORT ERROR IF NO INTERRUPT 

TRAP 

.WORD 
.WORD 
.WORD 
{EXPECTED CONTENTS OF TSSR 
{WAIT FOR READY, NON-AMBIGUOUS 
I GET THE CONTENTS OF TSSR 
lIS OFF-LINE BIT SET ? 
{BRANCH IF NOT OFF-LINE 
{SET OFF-LINE IN EXPECTED DATA 
{DOES EXPECTED MATCH RECEIVED ? 
j OKAY IF MATCH 
{NBA NOT SET TO REJECT 

TRAP 
.WORD 



C$BSEG 



C$ERDF 
607 

SFIERR 
SFIMSG 



C$ERDF 
608 
T6SSR 
PKTSSR 



C$CLP1 

C$ESCAPE 
L10054-. 



C$ERHRD 
609 
T6NINT 
PKTSSR 



CfERHRD 

610 



F12 
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SEQ 0148 



050274 


030450 




030276 


012036 




1103 030300 






030300 


104406 




1104 030302 


004737 


016326 


1105 030306 


016501 


000000 


1106 030312 


010402 




1107 030314 


062702 


000010 


1108 030320 


020102 




1109 030322 


001404 




1113 030324 






030324 


104456 




030326 


001143 




030330 


030711 




0303^2 


015464 




1114 






1115 






1116 030334 


004737 


011104 


1117 030340 


103404 




1121 030342 






030342 


104456 




030344 


001144 




030346 


004741 




030350 


015500 




1122 030352 






030352 






030352 


104405 




1123 030354 


011300 




1124 030356 


042700 


177740 


1125 030362 


020027 


000004 


1126 030366 


001002 




1127 030370 


062703 


000002 


1128 030374 


020327 


003056 


1129 030400 


103002 




1130 030402 


000137 


030116 


1131 






1132 030406 






030406 






030406 


104403 




1133 030410 


005737 


002220 


1134 030414 


001402 




1135 030416 


004737 


017172 


1136 030422 


0O4737 


016446 


1137 030426 


103002 




1138 030430 


000137 


027552 


1139 030434 






030434 


104432 




030436 


000344 




1140 






1141 






1142 






1143 






1144 






1148 030440 






1149 030440 


000000 




1150 030442 


052525 




1151 030444 


125252 





30$; 



CKLOOP 

JSR 
MOV 
MOV 
ADD 
CMP 
BEQ 
ERRHRD 



35*: 



40$ 



JSR 
BCS 
ERRHRD 



ENDSEG 



45$ 



50$ 



LNDSUB 



PC.CHKTSSR 

TSBA(R5),R1 

R4.R2 

#10. R2 

R1.R2 

35$ 

ERRN0,T6TSBA,EXPREC 



PC.CKRAM 

40$ 

ERRNO,PKTRAM,RAMERR 



MOV 


(R3),R0 


BIC 


0177 740, RO 


CMP 


R0.44 


BNE 


45$ 


ADD 


Q2 t R3 


CMP 


R3.0TBLEND 


BHIS 


50$ 


JMP 


5$ 





TST 


FATFLG 




BEQ 


60$ 




JSR 


PC.CKDROP 


60$: 


JSR 


PC,TSTL00P 




BCC 


62$ 




JMP 


T6L00P 


62$ 5 


EXIT 


TST 



lLOCAL STORAGE FOR THIS TEST 

i - 



T6PACKET: 



.WORD 
.WORD 
.WORD 





052525 

125252 



.WORD T6NBA 
.WORD PKTSSR 

{LOOP ON ERROR ? 

TRAP C$CLPl 

I WAIT FOR READY, NON -AMBIGUOUS 

,GET TSBA REGISTER CONTENTS 

I START OF THE PACKET 

, EXPECT TSDA TO PACKET ♦ 10 

j COMPARE EXPECTED TO RECEIVED 

, ERROR IF NOT EQUAL 

, PRINT THE ERROR 6 EXPD/RECV 

TRAP C$ERHRD 
.WORD 611 
.WORD T6TSBA 
.WORD EXPREC 



j SEE IF DATA IN RAM IS CORRECT 
{BRANCH IF PACKET IN RAM IS CORRECT 
{REPORT THE RAM ERROR(S) 

TRAP C$ERHRD 

.WORD 612 

.WORD PKTRAM 

.WORD RAMERR 



;<<<<<<<<<<<<< 



<<<<<<<<<<<<< 



END SEGMENT 
10000$; 

TRAP C$ESEG 
{NEXT PACKET COMMAND WORD 
jGET BITS 0-4 

1 DON'T TEST WRITE CHARACTERISTICS 
, BRANCH IF NOT WRITE CHARACTERISTICS 
{BY-PASS WRITE CHARACTERISES 
{HAVE WE COMPLETED DATA TABLE ?,-*' 
{BRANCH IF ALL TESTED 
{TEST WITH NEXT DATA 

i\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10054; 

TRAP C$ESUB 

,ANY FATAL ERRORS ? 

j BRANCH IF NOT 

j TRY TO DROP THE UNIT 

{SHOULD WE DO ITERATIONS ? 

{BRANCH IF NOT 

{LOOP UNTIL COUNT EXPIRED 

{ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10052-. 



{COMMAND PACKET FOR TEST 

,WII? CONTAIN VARIABLE COMMANDS 



G12 
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1152 
1155 
1154 
1155 
1156 
1157 
1158 
1159 
li60 
1161 
1162 
1163 
1164 
1165 
1166 



030446 052525 



030450 
030475 
030553 
030631 
030711 
030763 



103 
103 
125 
105 
111 
103 



157 
157 
156 
170 
156 
157 



155 
156 
145 
160 
143 
155 



031002 
031002 
031002 104401 



{LOCAL 

I - 

T6N8A 

T6SSR 

T6INT 

T6NINT 

T6TSBA 

TST6ID 



SEQ 0149 



.WORD 052525 



TEXT MESSAGES FOR TEST 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



Command Not Rejected' 

Contents of TSSR Incorrect After Write Packet' 
Unexpected Interrupt Received On Write Packet' 
Expected Interrupt Not Received On Write Packet' 
Incorrect TSBA Address After Pocket Write' 
Command Reject' 



L10052: 



TRAP 



CSETST 



H12 
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SEQ 0150 



1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 

1201 
1202 
120? 
1204 
1205 



1206 
1207 
1208 



1209 
1210 
1211 
1212 
1213 

1214 
1215 
1216 

1220 
1221 



031004 
031004 
031004 
031010 
031014 
031022 
031022 
031022 
031022 
031024 

031030 
031030 
031034 
031036 
031042 
031046 
031054 
031054 
031054 

031056 
031062 
031064 
031066 
031066 
031070 
031072 
031074 



012700 034273 
004737 016500 
012737 000024 002214 



104402 

004737 034322 



012700 OOOOOO 
104441 

012703 002762 

012704 033140 
012764 000010 000006 



104404 

004737 015764 

103405 

010001 

104455 

001275 
003646 
012024 



T7L00P 



5$ i 



.S8TTL TEST 7s WRITE CHARACTERISTICS 



THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS 
COMMANO. IT VERIFIES THAT THE COMMANO BLOCK ANO CHARACTERISTICS 
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 
ADDRESS (NBA) BIT IN TSSR T S HANDLED PROPERLY, ANO THAT A PROPER 
MESSAGE PACKET IS STORED, WHERE APPROPRIATE. THIS TEST DOES NOT 
CHECK THAT T HE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 
DATA BITS OPERATE PROPERLY j THE FUNCTIONING OF THESE BITS IS 
VERIFIED IN SU8SEQUENT TESTS. ALL COMMANDS EXECUTED IN THIS 
TEST HAVE THE INTERRUPT ENABLE CIE) BIT CLEARED TO ZERO, SO NO 
INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE PROGRAM RUNS AT 
PROCESSOR PRIORITY 0, WITH THE INTERRUPT SERVICE ROUTINE SET UP 
TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS. A 
PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN 
THE ROM OR PIPELINE. 

THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES, COMMANO 
DECODING. DMA LOGIC. ANO BASIC PACKET PROTOCOL HANDLING. THIS 
IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE 
MESSAGE PACKET) ARE PERFORMED. ANY ERRORS IN THE BODY OF THE 
TEST (I.E. ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO 
THE TRANSPORT BUS) DEFINITELY INDICATE A BAD M7196 MODULE. 



BGNTST 

MOV 
JSR 
MOV 

BGNSUB 



♦TST7ID.R0 

PC.TSTSETUP 

G20..L00PCNT 



JSR PC.T7REST 
SETPRI OPRIOO 



MOV 
MOV 
MOV 

BGNSEG 



OTSTBLK^IO. ,R3 

OT7PACKET.R4 

08..PKBCNKR4) 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



T7: s 

j ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETL*> 
{PERFORM 20 ITERATIONS 

j//////////// BEGIN SUBTEST //////////// 

T7.1: 

TRAP CIBSUB 
j SET PACKET TO START ~l*> VALUES 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV $PRIOO,RO 
TRAP CJSPRI 

, START OF TEST DATA 

»GET THE ADDRESS OF COMMANO PACKET 

I START WITH MINIMUM ALLOWABLE VALUE 

j>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

j 00 SOFT INIT OF CONTROLLER 

tBR IF SOFT INIT ■ OK 

I SAVE CONTENTS OF TSSR 

j DEVICE FATAL ERROR DURING INIT 

TRAP CJERDF 
.WORD 701 
.WORD SFIERR 
.WORD SFIMSG 



112 
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SEQ 0151 



1222 
1223 
1224 
1225 
1226 
1227 
1231 



1232 
1233 

1234 



1235 
1236 
1240 



1241 
1242 
1243 
1244 
1245 
1246 
1247 
1251 



1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1266 



1267 
1268 
1269 
1270 



031076 

031102 

031106 

031112 

031116 

031120 

031122 

031122 

031124 

0o:,X26 

031130 

031132 

031136 

031136 

031140 

031140 

031142 

031144 

031150 

031152 

031152 

031154 

031156 

031160 

031162 

031166 

031172 

031176 

031200 

031204 

031206 

031210 

031210 

031212 

031214 

031216 

031220 

031220 

031222 

0J12?6 

031232 

031236 

031244 

031246 

031252 

031256 

031262 

031264 

031266 

031266 

031270 

031272 

051274 



031276 
031302 



005037 
005037 
010465 
004737 
103407 
010001 

104455 
001276 
033741 
012036 
005237 

104406 

104410 
000152 
005737 
001404 

104456 
001277 
034121 
012036 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
001300 
033300 

012036 

104406 
004737 
016501 
0?.?7O5 
0*2762 
001404 
005237 
062702 
062702 
020102 
001404 

104456 
001301 
034210 
015464 



004737 
103404 



002220 
002222 
000000 
016326 



10$ 



CLR FATFLG 

CLR INTRECV 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

BCS 15$ 

MOV R0,R1 

ERRDF ERRN0,T7SSR, PKTSSR 



j CLEAR FATAL ERROR FLAG 

I CLEAR INTERRUPT RECEIVED FLAG 

jSET THE PACKET ADDRESS 

I WAIT FOR SSR TO SET 

jBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 



002220 



15$ 



002222 









TRAP 


C$ERDF 








.WORD 


702 








.WORD 


T7SSR 








.WORD 


PKTSSR 


INC 


FATFLG 




iSET FATAL ERROR FLAG 




CKLOOP 






» LOOP ON ERROR, IF FLAG SET 

TRAP 


C$CLP1 


ESCAPE 


SEG 




iBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 


CJESCA 
10000$ 


TST 


INTRECV 




lD'0 AN INTERRUPT OCCUR ? 




BEQ 


22$ 




IBKANCH IF NOT 




ERRHRD 


ERRN0.T7INT 


.PKTSSR 







000002 
000200 
000100 

000100 



22$: 



25$: 



MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


BIT 


*0FL,R1 


BEQ 


25$ 


BIS 


*OFL , R2 


CMP 


R2.R1 


BEQ 


30$ 


ERRHRD 


ERRN0»T7NBA, PKTSSR 



30$ 



CKLOOP 



016326 
000000 
033166 

000200 

002224 
000002 
000016 



000012 



32$: 



TRAP 


CIERHRD 


.WORD 


703 


.WORD 


T7INT 


.WORD 


PKTSSR 


i GET THE CONTENTS OF TSSR 




j EXPECTED CONTENTS OF TSSR 




lIS OFF-LINE BIT SET ? 




j BRANCH IF NOT OFF-LINE 




»SET OFF-LINE IN EXPECTED DATA 




iDOES EXPECTED MATCH RECEIVED ? 




j OKAY IF MATCH 




j NBA NOT ZERO 




TRAP 


C$ERHRD 


.WORD 


704 


.WORD 


T7N6A 


.WORD 


PKTSSR 



j LOOP ON ERROR ? 



C$CLP1 



JSR 


PC.CHKTSSR 


MOV 


TSBA(R5),R1 


MOV 


*T7BFR,R2 


BIT 


0BIT7.XST2CR2) 


BEQ 


32$ 


INC 


EXTFEA 


ADD 


02, R2 


ADO 


014. ,R2 


CMP 


R1.R2 


BEQ 


35$ 


ERRHRD 


ERRN0.T7TSBA.EXPREC 



TRAP 

j WAIT FOR READY, NON-AMBIGUOUS 
j GET TSBA REGISTER CONTENTS 
t START OF THE DATA BUFFER 
iIS EXTENOEO FEATURES BIT SET ? 
j BRANCH IF EXTENOEO FEATURES OFF 
j SET EXTENOEO FEATURES FOR SUBTEST 6 
I EXTRA WORD IF SPECIAL FEATURES 
I EXPECTED CONTENTS OF TSDA 
, COMPARE EXPECTED TO RECEIVED 
I ERROR IF NOT EQUAL 
j PRINT THE ERROR 6 EXPD/RECV 

TRAP 
.WORD 
.WORD 
.WORD 



CJERHRD 
705 

T7TSBA 
EXPREC 



011104 



35$! 



JSR 
BCS 



PC.CKRAM 
40$ 



j SEE IF DATA IN RAM IS CORRECT 

j BRANCH IF PACKET IN RAM IS CORRECT 



J12 
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1274 



1275 
1276 



1277 
1278 
1279 
1260 
1281 
1282 
1283 



1284 
1285 
1286 
1287 
1288 



031304 
031304 
031306 
031310 
031312 

031314 
031314 
031314 

031316 
031322 
031326 
031330 

031334 
031334 
031334 

031336 
031342 
031344 
031350 



104456 
001302 
004 741 
015500 



104405 

012364 
020327 
103002 
000137 



104403 

005737 
001402 
004737 



000006 
003056 

031054 



002220 
017172 



40$ 



55$ 



ERRHRD ERRNO , PKTRAM , R AMERR 



ENDSEG 



MOV 


(R3)*,PK8CNTCR4) 


CMP 


R3.0TBLEND 


BHIS 


55$ 


JMP 


5$ 



ENDSUB 



60$ 



TST 


FATFLG 


BEQ 


60$ 


JSR 


PCCKDROP 



j REPORT THE RAM ERRORCS) 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
706 

PKTRAM 
RAMERR 



;<<<<<<<<<<<<< END SEGMENT <<<<<<<(<<<<< 

10000$; 

TRAP C$ESEG 

I SET THE TEST WORD 
I HAS ALL DATA BEEN TESTED ? 
j BRANCH IF ALL DATA DONE 
I BRANCH TILL BACK TO ZERO 

|\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10056; 

TRAP C$ESUB 

;ANY FATAL ERRORS ? 

j BRANCH IF NUT 

I TRY TO DROP THE UNIT 



SEQ 0152 



i<12 
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1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
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SEQ 0153 



j TEST 7, SUBTEST 2 

{CHECK THAT UNUSED BITS BEING SET CAUSES 
{WRITE CHARACTERISTICS COMMAND TO BE REJECTED 

J - 



1300 
1301 



1302 
1303 
1304 
1305 
1306 

1307 
1308 
1309 
1313 
1314 



1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1326 



1327 
1328 



1329 

1330 
1534 



1335 



031350 
031350 
031350 

031352 
031352 
031356 
031360 
031364 
031370 

031374 
031374 

031376 
031402 
031404 
031406 
031406 
031410 
031412 
031414 
031416 
031.422 
031424 
031426 
031432 
031436 
031442 
031444 
031446 
031446 
031450 
031452 
031454 
031456 
031456 
031460 
031460 
031462 
031464 
031470 
031472 
031472 
031474 
031476 
0J1500 
031502 



104402 



012700 
104441 
012703 
012704 
004737 



104404 

004737 
103405 
010001 

104455 
001303 
003646 
012024 
005037 
010400 
061300 
056310 
0104*5 
004737 

LOU OS 

010001 

104455 
001304 
033741 
012036 

104406 

104410 
000116 
005737 
001404 

104456 
001305 
0341?1 
0120 V, 

016501 



oooooo 

033206 
033140 
034322 



015764 



BGNSUB 



SETPRI OPRIOO 



5$ 



MOV 
MOV 
JSR 

BGNSEG 



0T72DATA.R3 

0T7PACKET,R4 

PC.T7REST 



JSR 


PC.SOFINIT 


BCS 


10* 


MOV 


RO»Ri 


ERRDF 


ERRNO.SFIERR.SFIMSG 



002222 



000002 
OOOOOO 
016240 



10$: 



CLR 


INTRECV 


MOV 


R4.R0 


ADD 


(R3),R0 


BIS 


2(R3),(R0) 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0,T7SSR, PKTSSR 



15$: 



002222 



CKLOOP 
ESCAPE SEG 



TST INTRECV 

BEQ 22% 

ERRHRD ERRN0.T7INT.PKTSSR 



j //////////// BEGIN SUBTEST //////////// 

T7.2: 

TRAP C$BSUB 

l LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRI0O,RO 
TRAP C$SPRI 
j START OF TEST DATA FOR SUBTEST 
I GET THE ADDRESS OF COMMAND PACKET 
{RESTORE PACKET TO STARTING VALUES 

;>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 



jDO SOFT INIT OF CONTROLLER 

,ro tf SOFT INIT ■ OK 

I SAVE CONTENTS OF T3SR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORO 

{CLEAR INTERRUPT RECEIVED FLAG 

{START OF THE COMMAND PACKET 

{OFFSET TO THE DATA WORD TO TES" 

{SET THE DATA BITS TO BE TESTED 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

j BR IF CARRY SET (GOOO RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP 



C$ERDF 
707 

SFIERR 
SFIMSG 



.WORD 
.WORD 
.WORD 

{LOOP ON ERROR, IF FLAG SET 

TRAP 

j BY -PASS CHECKS IF FATAL ERROR 

TRAP 
.WORD 
OCCUR ? 



{DID AN 
{BRANCH 



INTERRUPT 
IF NOT 



000002 



22$s 



MOV 



TSSR(R5),R1 



TRAP 
.WORD 
.WORD 
,WORD 
{GET THE CONTENTS OF TSSR 



C$ERDK 
708 
T7SSR 
PKTSSR 

C$CLP1 

CtESCAPE 
10000$-, 



C$ERHRD 
',09 
T7INT 
PKTSSR 



L12 
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1336 


031506 


01270^ 


102206 


1337 


031512 


032701 


000100 


1338 


031516 


001402 




1339 


031520 


052702 


000100 


1340 


031524 


020201 




1341 


031526 


001414 




1342 


031530 


010100 




1343 


031532 






1344 


031542 


020027 


002000 


1345 


031546 


001404 




1349 


031550 








031550 


104456 






031552 


001306 






031554 


033353 






031556 


012036 




1350 


031560 








031560 


104406 




1331 


031562 


032701 


002000 


1352 


031566 


001004 




1356 


031570 








031570 


104456 






031572 


001307 






031574 


033222 






031576 


012036 




1357 


031600 






1358 


031600 
031600 








031600 


104405 




1359 








1360 


031602 


062703 


000004 


1361 


031606 


020327 


033222 


1362 


031612 


103002 




1363 


031614 


000137 


031364 


1364 








1365 


031620 
031620 
031620 


104403 





25$: 



30$: 



MOV 
BIT 
BEQ 
BIS 
CMP 
BEQ 
MOV 
XOR 
CMP 
BEQ 
ERRHRD 



CKLOOP 



0SC!SSR!TSREJ!N3A,R2 

0OFL.R1 

25* 

O0FL,R2 

R2.R1 

30$ 

Rl.RO 

R2.R0 

R0.0N8A 

30$ 

ERRN0.T72REJ, PKTSSR 



BIT *NBA,R1 

BNE 35$ 

ERRHRD ERRN0.T72NBA.PKTSSR 



35$: 



ENDSEG 



ADD 


04.R3 


CMP 


R3,4T7a(X>NE 


BHI5 


57$ 


JMP 


5$ 



57$; 



ENDSUB 



SEQ 0154 



{EXPECTED CONTENTS OF TSSR 

jIS OFF-LINE BIT SET ? 

, BRANCH IF NOT OFF-LINE 

{SET OFF-LINE IN EXPECTED DATA 

jDOES EXPECTED MATCH RECEIVED ? 

tOKAY IF MATCH 

{DATA FROM T$SR 

j FIND BITS IN ERROR 

j IS NBA ONLY BIT IN ERROR ? 

ERROR IF NBA ONLY BAD BIT 

REJECTED 

TRAP 



{DON'T PRINT 
j COMMAND NOT 



iLOOP ON ERROR ? 

j 15 NBA BIT SET 

i OKAY IF NBA SET 
j NBA NOT SET 



.WORD 
.WORD 
.WORD 

TRAP 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
710 

T72REJ 
PKTSSR 

C9CLP1 



C$ERHRD 
711 
T72N8A 
PKTSSR 



•<<<<<<<<<<<<< ENO SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

iPOINT TO NEXT DATA PAIR 
{COMPARE TO END OF TEST DATA 
j BRANCH IF ALL DATA TESTED 
{BRANCH TILL BACK TO ZERO 

j\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L 1005 7: 

TRAP C$ESUB 



M12 
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SEQ 0155 



1367 








1368 








1369 








1370 








1371 








1372 








1373 








1374 








1375 








1376 


031622 
031622 








031622 


104402 




1377 








1378 


031624 








031624 


012700 


000000 




031630 


104441 




1379 


031632 


012703 


000001 


1380 


031636 


012704 


033140 


1381 


031642 


004737 


034322 


1382 








1383 


031646 








031646 


104404 




1384 








1385 


031650 


004737 


015764 


1386 


031654 


103405 




1390 


031656 


010001 




1391 


031660 








031660 


104455 






031662 


001310 






031664 


003646 






031666 


012024 




1392 


031670 


005037 


002222 


1393 


031674 


010364 


000006 


1394 


031700 


010465 


000000 


1395 


031704 


004737 


016240 


1396 


031710 


103405 




1397 


031712 


010001 




1401 


031714 








031714 


104455 






031716 


001311 






031720 


033741 






031722 


012036 




1402 


031724 








031724 


104406 




1403 


031726 








031726 


104410 






031730 


000116 




1404 


031732 


005737 


002222 


1405 


031736 


001404 




1409 


031740 








031740 


104456 






031742 


001312 






031744 


034121 






031746 


012036 




3410 


031750 


016501 


000002 


1411 


031754 


012702 


102206 


1412 


031760 


032701 


000100 



TEST 7. SUBTEST 3 

CHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED 
IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT 



BGNSUB 



SETPRI OPRIOO 



5$: 



MOV 
MOV 
JSR 

BGNSEG 



10$ t 



15$: 



*1.R3 

0T7PACKET.R4 
PCT7REST 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



CLR 


INTRECV 


MOV 


R3.PKBCNTCR4) 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T7SSR, PKTSSR 



22$: 



CKLOOP 
ESCAPE SEli 



TST INTRECV 

BEQ 22$ 

ERRHRD ERRN0.T7INT, PKTSSR 



MOV TSSR(R5),R1 

MOV *SC!SSR!TSREJ!U8A ( R2 

BIT WL.Rl 



}//////////// BEGIN SUBTEST //////////// 

T7.3: 

TRAP C$BSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRICO.RO 

TRAP C$SPRI 

i STARTING BYTE COUNT 

j GET THE ADDRESS OF COMMAND PACKET 

jRESTORE PACKET TO STARTING VALUES 

,*>>>>>>>:>:>>> BEGIN SEGMENT >>*>>>>>>>>> 

TRAP CfBSEG 

{DO SOFT INIT OF CONTROLLER 

:BR IF SOFT INIT « OK 

j SAVE CONTENTS OF TSSR 

jDEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 712 
.WORD SFIERR 
.WORD SFIMSG 

iCLEAR INTERRUPT RECEIVED FLAG 

» INSERT THE BYTE COUNT FOR TEST 

j SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

j SAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 



TRAP 


C$ERDF 


.WORD 


713 


.WORD 


T7SSR 


.WORD 


PKTSSR 


j LOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 


I BY -PASS SUBTEST IF FATAL ERROR 




TRAP 


C$ESCAPE 


.WORD 


10000$-. 


jDID AN INTERRUPT OCCUR ? 




1 BRANCH IF NOT 




TRAP 


C$ERHRD 


.WORD 


714 


.WORD 


T71NT 


.WORD 


PKTSSR 


iGET THE CONTtNTS OF TSSR 




i EXPECTED CONTENTS OK TSSR 





{IS OFF-LINE BIT SET ? 



N12 



TSVSA - HARDWARE TESTS MACRO M120O 
TEST 7; WRITE CHARACTERISTICS 



23-MAR-84 09;44 PAGE 91-1 



1413 
1414 
1415 
1416 
1417 
1416 
1419 
1420 
1424 



1425 

1426 
1427 
1431 



1432 
1433 



1434 
1435 

14 36 
1437 
1438 
1439 
1440 



031764 
031766 
031772 
031774 
C31776 
032000 
032010 
032014 
032016 
032016 
032020 
032022 
032024 
032026 
032026 
032030 
032034 
032036 
032036 
032040 
032042 
032044 
032046 
032046 
032046 
032046 

032050 
032052 

032056 
032060 

032064 
032064 
032064 



001402 
052702 
020201 
001414 
010100 

020027 

001404 

104456 
001313 
033452 
012036 

104406 
032701 
001004 

104456 
001314 
033222 
012036 



104405 

005203 
020327 
002002 
000137 



104403 



000100 



002000 



25$ ! 



30$: 



BEQ 
BIS 
CMP 
BEQ 
MOV 
XOR 
CMP 
BEQ 
ERRHRD 



CKLOOP 



002000 



35$: 



ENDSEG 



000006 
031636 



57$t 



ENDSUB 



25$ 

0OFL.R2 

R2.R1 

30$ 

Rl.RO 

R2.R0 

RO.flNBA 

30$ 

ERRN0.T73REJ, PKTSSR 



INC 


R3 


CMP 


R3.06 


BGE 


57* 


JM? 


5$ 



SEQ 0156 



{BRANCH IF NOT OFF-LINE 

tSET OFF-LINE IN EXPECTED DATA 

{DOES EXPECTED MATCH RECEIVED ? 

j OKAY IF HATCH 

{DATA FROM TSSR 

{FIND BITS IN ERROR 

NBA ONLY BIT IN ERROR ? 

ERROR IF NBA ONLY BAD BIT 

REJECTED 

TRAP 



j IS 



jDON'T PRINT 
{COMMAND NOT 



{LOOP ON ERROR ? 



.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
715 

T73REJ 
PKTSSR 

C$CLP1 



BIT 


tfNBA.Rl 


{IS NBA BIT SET 


BNE 


35$ 


j OKAY IF NBA SET 


ERRHRD 


ERRN0.T72NB A, PKTSSR 


,NBA NOT SET 



TRAP 


CiERHRD 


.WORD 


716 


.WORP 


T72NBA 


.WORD 


PKTSSR 



j<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

{NEXT BYTE COUNT 

{TESTED ALL INVALID ? 
{BRANCH IF TEST DONE 
{BRANCH TILL BACK TO ZERO 

|\\\\\\\\\\\\\ END SUBTEST WWWWVAW 

LlOObO; 

TRAP C$ESUU 



B 'I 3 



T5V5A • HARDWARI 


: TESTS 


MACRO H1200 21 


TEST 7: WRITE ( 


:haractf.ristics 


1442 






1445 






1444 






1445 






1446 






144 / 






1446 






1449 






1450 






1451 032066 






032066 






032066 


104402 




1452 






1455 032070 






032O7C 


012700 


OOOOOO 


032074 


104441 




1454 0320 76 


012703 


055206 


1455 032102 


012704 


055140 


1456 032106 


004757 


054 322 


1457 






1456 






1459 032112 


004757 


015764 


1460 032116 


105405 




1464 032120 


010001 




1465 032122 






032122 


104455 




032124 


001315 




032126 


005646 




032130 


012024 




1466 032132 


005057 


002222 


146 7 0321V. 


05275/ 


OOOOOi 055150 


1*66 032144 


010465 


OOOOOO 


M69 032150 


004737 


016240 


1470 032154 


105405 




1471 032156 


010OO1 




1475 032160 






032160 


104455 




032162 


001516 




032164 


055741 




052166 


012056 




1476 032170 






032170 


104406 




1477 032172 






032172 


104410 




032174 


000116 




14 75 032176 


005757 


002222 


14 79 032202 


001404 




1463 032204 






032204 


104456 




032206 


001517 




032210 


054121 




032212 


012056 




14*4 032214 


016501 


OOOOO? 


1485 052220 


012702 


102206 


I486 032224 


052/01 


000100 


1467 032250 


001402 




14Q4 W2232 


052 702 


000100 



SEQ 0157 



Tt ST 7, SUBTEST 4 

SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
REJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 



5»i 



101: 



151: 



ddix 



BGNSUO 



SETPRI *PRIOO 



MOV ♦T72DATA.R3 

MOV 4T7PACKET.R4 

JSR PC.T7REST 



JSR PC.SOFINIT 

BCS 10* 

MOV R0.R1 

ERROF ERRNO ♦ SF IERR , SF IMSG 



CLR 


INTRECV 


BIS 


•1.T7DATA 


MOV 


R4,TSD6(R5) 


JSR 


PC.WAITF 


BCS 


151 


MOV 


R0,R1 


ERRUF 


ERRNO, T7SSR.PKTSSR 



MOV 
MOV 
BIT 
BtQ 
ttlU 



\//////////// BEGIN SUBTEST //////////// 

T7.4i 

TRAP CIBSUB 

I LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV #PRI00,R0 

TRAP CtSPRI 

iSTART OF TEST DATA FOR SUBTEST 
iGET THE ADDRESS OF COMMAND PACKET 
jRESTORE PACKET TO STARTING VALUES 



,D0 SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT • OK 

i SAVE CONTENTS OF TSSR 

iDEVICE FATAL ERROR DURING INIT 

TRAP CIERDF 

.WORD 717 
.WORO SFIERR 
.WORD SFIMSG 

jCLEAR INTERRUPT RECEIVED FLAG 

I MAKE ADORESS 000 

I SET THE PACKET ADORESS 

»WAIT FOR SSR TO SET 

iBR IF CARRr SET (GOOO RETURN) 

,SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO S~ T 











TRAP 


CIERDF 










,'JORO 


718 










.WORD 


T/SSR 










.WORD 


PKTSSR 


CKLOOP 








jLOOP ON ERROR, IF FLAG SET 

TRAP 


CICLP1 


ESCAPE 


SUB 






iBTPASS SUBTEST IF FATAL ERROR 

TRAP 
.WORO 


CIESCAPt 
L10061-. 


TST 


INTRECV 






jDIO AN INTERRUPT OCCUR ? 




BEO 


221 






j BRANCH IF NOT 




ERRHRO 


ERRNO, T7INT 


,FKT 


SSR 


TRAP 
.WORD 
.WORD 
.WJRD 


CI^RHRD 
7i9 

T /INT 
PKISliH 



TSSR(R5),R1 
•SCfSSR.'TURtJlNQAjRJ 
•Oft ,R1 

«0**Uft2 



iGET »HE CONTENTS > TSSR 
iMPKTEO CONTENTS Of TSSR 
1 IS OM I INI BIT SET ? 
iBRANCH J> Wt 0»f I IN* 

isti off -urn. in txPtcito mux 



C 1 3 
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SEQ 0156 



1489 
1490 

M91 
1492 
1495 

1494 
1498 



1199 

1500 
1501 

1505 



1506 
1507 



15QS 



032236 
032240 
032242 
032244 
032254 
032260 
032262 
032262 
032264 
C32266 
032270 
032272 
032272 
0322 74 
032300 
032302 
032302 
032304 
032306 
032310 

032312 
03231? 
032312 



020201 
001414 
010100 

020027 002000 
001404 

104456 
001320 
C33545 
01203G 

104406 

032701 002000 

001004 

104456 
001321 
033222 
012036 



25*} 



CMP 


R2.R1 


OEQ 


30* 


MOV 


Rl.RO 


XOfc 


R2,R0 


CMP 


r.O.MAA 


BEQ 


301 


ERRHRD 


ERRN0.T74REJ.PKTSSR 



30* 



35*i 



ENDSU8 



jDOFS EXPECTED MATCH RECEIVED ? 
I OKAY IF MATCH 

iDATA FROM TSSR 

jFINO BITS IN ERROR 

ilS NBA ONLY BIT IN ERRU.: ? 

iDON'T PRINT ERROR IF NBA ONLY BAD BIT 

j COMMAND NOT REJECTED 









TRAP 


CiERHRD 








,W0R0 


720 








.WORD 


T74REJ 








.WORD 


PKTSSR 


CKl-OOP 




j LOO? ON ERROR ? 


TRAP 


C»CLP1 


BIT 


fNBA.Ml 


lIS NBA BIT SFT ? 






BNE 


351 


lOKAY IF NBA SET 






ERRKRD 


ERRN0.T/2NBA.PKTSSR 


jNBA NOT SET 


TRAP 
.WORD 

.WORD 
.WORD 


C^ERHRO 
721 

T72NBA 
PKTSSi: 



104403 



|\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L100611 

TRAP C*ESl« 



013 
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SEC) 0159 



1511 








151,? 








1515 








1514 








1515 








1516 








151 ; 








1518 








1519 


032314 
052514 








032514 


104402 




1520 








1521 


052516 








05251^ 


012700 


000000 




052322 


104441 




1522 


052324 


012703 


000001 


1523 


052530 


012704 


053140 


1524 


052334 


004737 


054322 


1525 








1526 


052540 








052540 


104404 




1527 








1528 


052542 


004737 


015764 


1529 


052546 


103405 




1553 


032550 


010001 




1554 


05255* 








052552 


104455 






032554 


001322 






052556 


O03646 






052560 


012024 




1555 


052562 


005057 


002222 


1556 


052566 


010557 


035154 


1557 


052572 


010465 


000000 


1558 


052376 


00475? 


016240 


1539 


052402 


105405 




1S40 


052404 


010001 




1544 


052406 








052406 


104455 






052410 


001523 






032412 


055741 






032414 


012056 




1545 


052416 








052416 


104406 




1546 


052420 








052420 


104410 






052422 


000116 




1547 


052424 


005757 


002222 


1548 


052450 


001404 




1552 


052432 








052432 


104456 






C52434 


001524 






052456 


054121 






032440 


012056 




1553 


032442 


016501 


000002 


1554 


032446 


012702 


102206 


1555 


032452 


032701 


000100 



\ * 

jTFjT 7, SUBTEST 5 

iCHuCK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE 

i MESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14) 

i 



BGNSUB 



SETPR1 OPRIOO 



5lj 



MOV 
MOV 
JSR 

BGNSEG 



• 1, R3 

«T7PACKET,R4 
PC.T7REST 



%//////////// BEGIN SUBTEST //////////// 

T7,5; 

TRAP CIBSUB 

jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,RO 
TRAP CISPRI 

jSTARTING BUFFER LENGTH 

{GET THE ADDRESS OF COMMAND PACKET 

jRESTOPE PACKET TO STARTING VALUES 



!>>>>>>>>>>>> BEGIN 



SEGMENT >»»>>>v;» 
TRAP CI6SEG 



JSR 


PC.SOFINIT 


BCS 


101 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



10*: 



CLR 


INTRECV 




MOV 


R3,T7DATA«4 




MOV 


H4,TS0B(R5) 




JSR 


PC.WAITF 




BCS 


15$ 




MOV 


RO.Rl 




ERRDF 


ERRN0,T 7 SSR, 


, PKTSSR 



jOO SOFT INIT OF CONTROLLER 

jBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

iDEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

iCLEAR INTERRUPT RECEIVED FLAG 

j INSERT THE BAD MESSAGE LENGTH 

l SET THE PACKET ADDRESS 

iWAJT FOR SSR TO SET 

j BR IF CARRY SET (GOOD RETURN) 

i SAVE CONTENTS OF TSSP 

jDEVICE FATAL S5R FAILED TO SET 



Cif )F 

722 

SFIERR 

SFIMSG 



151 









TRAP 


CIFRDF 








.WORD 


723 








.WORD 


17SSR 








.WORD 


PKTSSR 


CKLOOP 






>LOOP On ERRW, IF FLAG SET 

TRAP 


CICLP1 


ESCAPE 


SEG 




jBY-PASS SUBTEST IF FATAL ERROR 

TRAP 

.WORD 


CILSCAPE 
10000*-, 


TST 


INTRECV 




jDIO AN INTERRUPT OCCUR ? 




BtO 


22 \ 




j BRANCH IF NOT 




ERRHRD 


ERRN0.T7INT 


, PKTSSR 


TRAP 
.WORD 

.WORD 
.WORD 


C1ERHR0 
724 
T7INT 
PKTS'-R 



22M 



MOV TSSR(R5),R1 

MOV 0SC!SSR!TSREJ»tJBA,R2 

BIT 0OFL.R1 



iGE'T THE CONTENTS OF TSSR 
(EXPECTED CONTENTS OF TSSR 
lIS OFFLINE BIT SET 7 



E 1 7 



O 
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1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1567 



1568 

1569 
1570 
1574 



1575 
1576 



1577 
1578 
1579 
1580 
1561 
1582 
1583 



032456 
032460 
032464 
032466 
0324 70 
032472 
032502 
032506 
032510 
032510 
032512 
032514 
032516 
032520 
032520 
032522 
032526 
032530 
032570 
032532 
032534 
032536 
032540 
032540 
032540 
032540 

032542 
032544 
032550 
032552 

032556 
032556 
032556 



0014C2 
052702 
020201 
001414 
010100 

020027 
001404 

104456 
001325 
033643 
012036 

104406 

032701 
001004 

104456 

001326 
033222 
012036 



104405 

005203 
020327 
002002 
000137 



104403 



000100 



002000 



25$: 



30$: 



DEQ 
BIS 
CMP 
BEQ 
MOV 
XOR 
CMP 
BEQ 
ERRHRO 



CKLOOP 



002000 



35$; 



ENDSEG 



000016 
032330 



57$; 



ENDSU8 



25$ 

40FL.R2 

R2.R1 

30$ 

Rl.RO 

R2,R0 

RO,*NBA 

30$ 

ERRN0.T75REJ, PKTSSR 



INC 


R5 


CMP 


R3.014. 


BGE 


57$ 


JMP 


5$ 



SEQ 0160 



? 



» BRANCH IF NOT OFF-LINE 

I SET OFF-LINE IN EXPECTED DATA 

jDOES EXPECTED MATCH RECEIVED 

jOKAY IF MATCH 

,DATA FROM TSSR 

jFIND BITS IN ERROR 

lIS NBA ONLY BIT IN ERROR ? 

ERROR IF NBA ONLY BAD BIT 

REJECTED 

TRAP 



)DON' T PRINT 
i COMMAND NOT 



{LOOP ON ERROR ? 



.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
725 
T75REJ 
PKTSSR 

C$CLP1 



BIT 


*N8A,R1 


* IS NBA BIT SET ? 


BNE 


35$ 


jOKAY IF NBA SET 


ERRHRD 


ERRN0.T72NBA, PKTSSR 


{NBA NOT SET 



TRAP 


C$ERHRD 


.WORD 


726 


.WORD 


T72NBA 


.WORD 


PKTSSR 



{<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP CiESEG 

jNEXT BUFFER LENGTH 

j HAVE ALL BAD VALUES BEEN TESTED ? 
jBRANCH IF ALL TESTED 
iBRANCH TILL BACK TO ZERO 

l\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10062; 

TRAP C$ESUe 



F13 
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SEQ 0161 



1585 






1586 






1587 






1588 






1589 






1590 






1591 






1592 






1593 






1594 






1595 






1596 






1597 032560 






032560 






032560 


104402 




1598 032562 


005737 


002224 


1599 032566 


001002 




1600 032570 






032570 


104432 




032572 


001576 




1601 032574 


004737 


034322 


1602 






1603 032600 






032600 


012700 


000000 


032604 


104441 




1604 032606 


012703 


002764 


1605 032612 


012704 


033140 


1606 032616 


012737 


000200 033160 


3 607 032624 


012764 


000012 000006 


1608 032632 






16C9 032632 






032632 


104404 




1610 






1611 032654 


004737 


015764 


1612 032640 


105405 




1616 032642 


0100C1 




1617 032644 






032644 


104455 




032646 


001527 




032650 


005646 




032652 


012024 




1618 032654 


005057 


002220 


1619 032660 


005037 


002222 


1620 032664 


010465 


000000 


1621 032670 


004737 


016326 


1622 032674 


105407 




1623 032676 


010O01 




1627 032700 






032700 


104455 




032702 


001330 




032704 


033741 




032706 


012036 




1628 032710 


005237 


002220 


1629 032714 






032714 


104406 




1630 032716 






032716 


104410 





7, SUBTEST 6 



I TEST 

{THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED 

{FEATURES MODE IS ENABLED (AS DETERMINED BY EXAMINING 

iXST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS). 

I IT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED 

{IF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL 

j OR GREATER. 



J - 



BGNSUB 



TST 
BNE 
EXIT 



4$ 



JSR 



5$: 



10*: 



EXTFEA 

41 

TST 



PC.T7REST 



SETPRI 4PRI00 



MOV *TSTBLK*12. ,R3 

MOV GT7PACKET.R4 

MOV 0200, T7SP 

MOV 01O,,PKBCNT(R4) 

BGNSEG 



JSR PC.SOFINIT 

BCS 101 

MOV R0.R1 

ERRDF ERRNO , SF IERR , SF IMSG 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRNO, T7SSR.PKTSSR 



15$} 



INC 
CKLOOP 



FATFLG 



j//////////// BEGIN SUBTEST //////////// 

T7.6s 

TRAP CIBSU6 
{IS EXTENDED FEATURES SOFT. SW SET? 
tBR. IF SOFTWARE SWITCH IS SET (ON) 
{NO EXTENDED FEATURES EXIT THIS TEST 

TRAP CIEXIT 
.WORD L10055-. 
{SET PACKET TO START-UP VALUES 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRI00 4 RO 
TRAP CJSPRI 
{START OF TEST DATA 
{GET THE ADDRESS OF COMMANO PACKET 
{SPECIAL BIT SET FOR EXTFEA RAM RD 
{START WITH EXTENDED FEATURES VALUE 

,>>>>>>>>>>>> BEGIN SEGMENl >>>>>>>>>>>> 

TRAP CSBSEG 



{DO SOFT INIT OF CONTROLLER 
{BR IF SOFT INIT ■ OK 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL ERROR DURING INIT 

TRAP 



.WORD 
.WORD 
.WORD 

{CLEAR FATAL ERROR FLAG 

{CLEAR INTERRUPT RECEIVED FLAG 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

jBR IF CARRY SET (GOOO RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



CiERDF 
727 

SFIERR 
SFIMSG 



ESCAPE SEG 



TRAP 


CJERDF 


.WORD 


728 


.WORD 


T^SSR 


.WORD 


PKTSSR 


{SET FATAL ERROR FLAG 




tLOOP ON i-RROP. IF FLAG SET 




TRAP 


C$CLP1 


tBY -PASS SUBTEST IF FATAL ERROR 




TRAP 


CSESCAPE 
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032720 


000156 




1631 032722 


005737 


002222 


1632 032726 


001404 




1636 032730 






032730 


104456 




032732 


001331 




032734 


034121 




032736 


012036 




1637 032740 


016501 


000002 


1638 032744 


012702 


000200 


1639 032750 


032701 


000100 


1640 032754 


001402 




1641 032756 


052702 


000100 


1642 032762 


020201 




1643 032764 


001404 




1647 032766 






032766 


104456 




032770 


001332 




032772 


033300 




032774 


012036 




1648 032776 






032776 


104406 




1649 033000 


004737 


016326 


1650 033004 


016501 


000000 


1651 033010 


012702 


033166 


1652 033014 


032762 


000200 000012 


1653 033022 


001402 




1654 033024 


062702 


000002 


1655 033030 


062702 


000016 


1656 033034 


020102 




1657 033036 


001404 




1661 033040 






033040 


104456 




033042 


001333 




033044 


034210 




033046 


015464 




1662 






1663 






1664 033050 


012704 


033150 


1665 033054 


004737 


011214 


1666 033060 


103404 




1670 033062 






033062 


104456 




033064 


001334 




033066 


004741 




033070 


015500 




1671 






1672 033072 


012704 


033140 


1673 033076 






033076 






033076 


104405 




1674 






1675 033100 


012364 


000006 


1676 033104 


0203^ 7 


003056 


1677 033110 


ICIOQZ 




1678 035112 


0OQ137 


0^632 


1679 







TST 


INTRECV 


BEQ 


22$ 


ERRHRD 


ERRN0.T7INT, PKTSSR 



22$: 



25$: 



MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


BIT 


*0FL,R1 


BEQ 


25$ 


BIS 


O0FL.R2 


CMP 


R2.R1 


BEQ 


30$ 


ERRHRO 


ERRN0.T7NBA, PKTSSR 



30$: 



CKLOOP 



32$: 



JSR 


PC.CHKTSSR 


MOV 


TSBACR5),R1 


MOV 


OT7BFR.R2 


BIT 


*6IT7.XST2(R2) 


BEQ 


32$ 


ADD 


02, R2 


ADD 


*14. # R2 


CMP 


R1.42 


BEQ 


35$ 


ERRHRD 


ERRNO.T/TSBA^ExPRfcC 



35$: 



40$: 



MOV OT7PACKET.R4 
ENDSEG 



MOV 


(R3)*,PKBCNT(R4) 


CMP 


R3.0TBLEND 


BHI5 


55$ 


JMP 


5$ 



SEQ 0162 



: DID AN 
I BRANCH 



INTERRUPT 
IF NOT 



OCCUR 



.WORD 
? 



TRAP 
.WORD 
.WORD 
.WORD 
jGET THE CONTENTS OF TSSR 
jEXPECTED CONTENTS OF TSSR 
jIS OFF-LINE BIT SET ? 
j BRANCH IF NOT OFF-LINE 
I SET OFF-LINE IN EXPECTED DATA 



10000$- 



C$ERHRD 
729 
T7INT 
PKTSSR 



iDOES 
j OKAY 
I NBA NOT 



EXPECTED 
IF MATCH 
ZERO 



MATCH RECEIVED ? 



TRAP 
.WORD 
.WORD 
.WORD 



{LOOP ON ERROR 7 

TRAP 

j WAIT FOR READY, NON-AMBIGUOUS 
:GET TSBA REGISTER CONTENTS 
i START Of THE DATA BUFFER 
iIS EXTENOEO FEATURES BIT SET ? 
t BRANCH IF EXTENOED FEATURES OFF 
j EXTRA WORD IF SPECIAL FEATURES 
{EXPECTED CONTENTS OF TSDA 
{COMPARE EXPECTED TO RECEIVED 
j ERROR IF NOT EQUAL 
i PRINT THE ERROR 6 EXPD/RECV 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
730 
T7N6A 
PKTSSR 

C$CLP1 



C$ERHRD 
731 

T7TSBA 
EXPREC 



MOV 


0T7DATA,R4 


j SET PO 


JSR 


PC.CKRAM2 


j SEE IF 


BCS 


40$ 


;BRAM"\ 


ERRHRD 


FRRNO,PKTRAM f RAMERR 


jP^> UHT 



N T ER FOR CHECKER 

^•ATA IN RAM IS CORRECT 

IF PACKET IN RAM IS CORRECT 

THE RAM ERRORCS) 

TRAP C$ERHRD 
.WORD 732 
.WORD PKTRAM 
.WORD RAMcRR 



j RESET PACKET POINTER 
!<<<<<<<<<<<<< END SEGMENT 

10000$: 

TRAP 

j SET THE TEST WORD 
jHAS ALL DATA BEEN TESTED ? 
{BRANCH IF ALL DATA DONE 
{BRANCH TILL BACK TO ZERO 



<<<<<<<<<<<<< 



C$ESEG 
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1680 033116 






033116 






033116 


104403 




1681 






1682 033120 


005737 


002220 


1683 033124 


001402 




1684 033126 


004737 


017172 


1685 033132 






1666 033132 






033132 


1C4432 




033134 


001234 




1687 






1688 






1689 






1690 






1691 






1693 


033140 




1695 033140 






1696 033140 


100004 




1697 033142 


033150 




1698 033144 


000000 




1699 033146 


000010 




17O0 






1701 033150 






1702 033150 


033166 




1703 033152 


oooooo 




1704 033154 


000016 




1705 033156 


OOOOOO 




1706 033160 


OOOOOO 




1707 






1708 033162 


OOOOOO 


OOOOOO 


1709 033166 






1710 






1711 






1712 






1713 






1714 






1715 






1716 






1717 






1718 






1719 






1720 






1721 






1722 033206 






1723 033206 


OOOOOO 


037140 


1724 033212 


000002 


000001 


1725 033216 


000004 


100100 


1726 


033222 




1727 






1728 






1729 






W30 






1731 






1732 






1733 033222 


116 


102 


1734 033300 


127 


122 



55$ 



ENDSUB 



60$ 



I ♦ 



TST 


FATFLG 


BEQ 


60$ 


JSR 


PC.CKDROP 



EXIT 



TST 



jLOCAL STORAGE FOR THIS TEST 
l - 

.-<,a0>£177770 



T7PACKET 








.WORD 


100004 




.WORD 


T7DATA 




.UORD 







.WORD 


8. 


T7DATA; 








.WORD 


T7BFR 




.WORD 







.WORD 


14. 




.WORD 





T7SP: 


.WORD 







.WORD 


0,0 


T7BFR: 


.BLKW 


8. 



SEQ 0163 



j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10063s 

TRAP 



C$ESUB 



»ANY FATAL ERRORS ? 

{BRANCH IF NOT 

{TRY TO DROP THE UNIT 

tALL DONE THIS TEST 



TRAP 
.WORD 



C$EXIT 
L10055-. 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMANO, WITH ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

jEXTFEA EXTRA WORD 

j SPACE 
{MESSAGE BUFFER 



TEST DATA FOR SUBTEST TWO 

DATA HAS FORMAT; 

1ST WORD OFFSET TO TEST WORD IN PACKET 
2ND WORD BITS TO SET FOR TEST 



T72DATAj 



T72D0NE 



.WORD O.BIT5!BIT6!BIT9!BIT10!BIT11!BIT12SBIT13 
.WORD 2.BIT0 
.WORD 4,BIT6!BIT15 



{LOCAL TEXT MESSAGES FOR TEST 



101 T72NBA: .ASCIZ 'NBA Not Set On Rejected WRI. CHARACTERISTICS' 
111 T7NBA: .ASCIZ 'WRITE CHARACTERISTICS Comma- d Not Accepted' 
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1735 


033353 


127 


.122 


111 


T72REJ 


.ASCIZ 


1736 


033452 


127 


122 


111 


T73REJ 


.ASCIZ 


1737 


033545 


127 


122 


111 


T74REJ 


.ASCIZ 


1738 


033643 


127 


122 


111 


T75REJ 


.ASCIZ 


1739 


033741 


103 


157 


156 


T7SSR; 


.ASCIZ 


1740 


034030 


105 


170 


160 


T7NINT 


.ASCIZ 


1741 


034121 


125 


156 


145 


T7INT: 


.ASCIZ 


1742 


034210 


111 


156 


143 


T7T5BA 


.ASCIZ 


1746 


034273 


127 


162 


151 


TST7ID 


• .ASCIZ 


1744 












.EVEN 


1745 















SEG1 0164 



WRITE CHARACTERISTICS Not Rejected With Non-Zero 
WRITE CHARACTERISTICS Not Reacted With Invalid I 



Unused Fields' 
Data Count' 
WRITE CHARACTERISTICS Not Rejected With Invalid Block Address' 
WRITE CHARACTERISTICS Not Rejected With Invalid Buffer Length' 
Contents of TSSR Incorrect After WRITE CHARACTERISTICS' 
Expected Interrupt Not Received On WRITE CHARACTERISTICS' 
Unexpected Interrupt Received On WRITE CHARACTERISTICS' 
Incorrect TSBA Address After WRITE CHARACTERISTICS' 
Write Characteristics' 
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SEQ 0165 



1747 








1748 








1749 








1750 








1751 








1752 








1753 








1754 


034322 






1755 


034322 






1756 


034326 


012701 


C33140 


1757 


034332 


012721 


100004 


1758 


034336 


012721 


033150 


1759 


034342 


005021 




1760 


034344 


012721 


000010 


1761 


034350 


012721 


033166 


1762 


034354 


005021 




1763 


034356 


012721 


000020 


1764 


034362 


005021 




1765 


034364 


005011 




1766 


034366 


000207 




1767 


034370 
034370 








034370 


104401 





i ROUTINE TO 


RESTORE COMMAND P 


I - 
T7REST: 






SAVREG 




MOV 




0T7PACKET.R1 


MOV 




0100004, CRD* 


MOV 




0T7DATA.CFU)* 


CLR 




CRD* 


MOV 




♦8..CR1)* 


MOV 




0T7BFR,(Rl)f 


CIR 




CRD* 


MOV 




#16., (RD* 


CLR 




CRD* 


CLR 




CRD 


RTS 




PC 



PACKET TO START-UP (DEFAULT) VALUES 



jSAVE THE REGISTERS 

» START OF THE PACKET 

j WRITE CHARACTERISTICS WITH ACK 

j ADDRESS OF CHAR DATA BLOCK 

I EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

j ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



ENDTST 



i RETURN 



L 10055: 



TRAP 



C$ETST 



1768 
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SEQ 0166 



1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
179/ 
1798 
1799 
1800 
1801 
1802 
1803 
1804 

1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1820 
1821 



1822 

1823 
1824 
18J5 
1826 
1830 



034372 
034372 
034372 
034376 
034402 
034410 

034410 
034414 
034420 
034422 
034424 
034424 
034426 
034430 
034432 
034434 
034440 
034444 
034450 
03445? 
034454 
034454 



.SBTTL TEST 8: VOLUME CHECK 

THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD 
WITHIN THE M7196 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 
CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE 
CVC BIT SET, IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON 
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS 
TEST i THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 

THE TEST PROCEEDS AS FOLLOWS: 

1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 

2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CVC-O) 
AND XSTO IN THE RETURNED MESSAGE DUFFER IS EXAMINED} 
THE VCK BIT SHOULD BE CLEAR (0). 

3. THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES 
NOT CHANGE (REMAINS AT 0). 

4. A WRITE CHARACTERISTICS COMMANO IS ISSUED WITH CVC-1 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD BE CLEAR (0). 

5. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC-0 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED} THE VCK BIT SHOULD REMAIN CLEAR (0), 



BGNTSf 



012700 035257 
004737 016500 
012737 000024 002214 



012704 035000 
004737 015764 
103405 
010001 

104455 

0C1441 

003646 

012024 

042714 040000 

010465 000000 

004737 016326 

103405 

010001 

104455 





MOV 


0TST8ID.R0 




JSR 


PC.TSTSETUP 




MOV 


020. ,L00PCNT 


T8L00Pi 








MOV 


0T8PACKET.R4 


bt: 


JSR 


PCS0FINI1 




BCS 


10$ 




MOV 


R0.R1 




ERRDF 


ERRNO,SFIERR,SFIMSG 



T8: : 
iASCII MESSAGE TO IDENTIFY 
jDO INITIAL TEST SETUP 
^PERFORM 20 ITERATIONS 



TEST 



jPACKET FOR WRITE CHARACTERISTICS 
jDO SOFT INIT OF CONTROLLER 
{ BR IF SOFT INIT - OK 
iSAVE CONTENTS OF TSSR 
I DEVICE FATAL ERROR DURING INIT 

TRAP 



WORD 
WORD 

WORD 



CiERDF 

601 

SFIERR 

SFIMSG 



10*1 



BIC 


0BIT14.CR4) 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


15* 


MOV 


R0.R1 


ERRDF 


ERRNOiTdSSR.PKTSSR 



iCLEAR THE CVC BIT 

jSET THE PACKET ADDRESS FOR WRITE CHAR 

j WAIT FOR SSR TO SET 

i BR IF CARRY SET (GOOD RETURN) 

;SAVF CONTENTS OF TSSR 

l DEVICE FATAL SSR FAILED TO SET 

TRAP C*ERDF 
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1831 
1832 



1833 
1834 
1835 
1839 
1840 



1841 

1842 
1843 
1844 
1845 
1849 



1850 
1851 



1852 
1853 
1857 
1858 



1859 

1860 
1861 
1862 
1863 
1864 
1868 



ie:>9 

1870 



034456 

034460 

034462 

034464 

034464 

034466 

034466 

034470 

034472 

034476 

034504 

034506 

034512 

034512 

034514 

034516 

034520 

054522 

034522 

034524 

034530 

034534 

034536 

034540 

034540 

034542 

034544 

034546 

034550 

034550 

034552 

034552 

034554 

034556 

034564 

034566 

034572 

034572 

034574 

034576 

03460O 

054602 

034602 

034604 

034610 

034614 

034620 

034622 

034624 

034624 

034626 

034630 

034632 

034634 

034634 

034656 

034636 



001442 
035170 
012036 

104406 

104410 

000604 

012702 035022 

032762 000020 000006 

001406 

016501 000002 

104456 
001443 
035077 
012100 

104406 

010465 000000 

00473? 016326 

103405 

010001 

104455 
001444 
035170 
012036 

104406 

104410 

000520 

032762 000020 000006 

001406 

016501 000002 

104456 
001445 
035077 
012100 



15$ 



CKLOOP 
ESCAPE TST 



20$: 



MOV 
BIT 
BEQ 
MOV 
ERRHRD 



CKLOOP 

MOV 
JSR 
BCS 
MOV 
ERRDF 



25$: 



104406 
052714 
010465 



30* 



040000 
000000 



004737 016326 

103405 

010001 

104455 
001446 
035170 
012036 

104406 

104410 



BIT 
BEQ 
MOV 
ERRHRD 



CKL OOP 

BIS 
MOV 
JSR 
BCS 
MOV 
ERRDF 



Shii 



4T8BFR,R2 

*XS0VCK,XST0CR2) 

20$ 

TSSR(R5),R1 

ERRN0.T8NVCK, PKTMES 



R4.TSDBCR5) 

PC.CHKTSSR 

25$ 

R0.R1 

ERRN0.T8S3R, PKTSSR 



CKLOOP 
ESCAPE TST 



OXS0VCK.X5T0CR2) 
30$ 

TSSR(RS),R1 
ERRN0.T8NVCK, PKTMES 



OfiIT14,(R4 j 

R4.TSDBCR5) 

PC.CHKTSSR 

35$ 

R0.R1 

ERRN0.T8SSR, PKTSSR 



CKL OOP 
ESCAPE TST 



{LOOP ON ERROR, IF FLAG 
lEXIT IF FATAL ERROR 



l ADDRESS OF THE MESSAGE 
j IS VOLUME CHECK SET IN 
j OKAY IF VOLUME CHECK I! 
I CONTENTS OF TSSR FOR Ef 
• VOLUME CHECK NOT CLEAR 



j LOOP ON ERROR ? 





SEQ 0167 


. WORD 


802 


. WORD 


T8SSR 


.WORD 


PKTSSR 


SET 




TRAP 


C$CLP1 


TRAP 


C$ESCAPE 


.WORD 


L10064-. 


BUFFER 




XSTO ? 




■ CLEAR 




:ROR REPORT 


TRAP 


CIERHRD 


.WORD 


803 


.WORD 


T8NVCK 


.WORD 


PKTMES 



TRAP 



C$CLP1 



I SET THE PACKET ADDRESS FOR WRITE CHAR 
•WAIT FOR SSR TO SET 
•BR IF CARRY SET (GOOD RETURN) 
i SAVE CONTENTS OF TSSR 
•DEVICE FATAL SSR FAILED TO SET 

TRAP 



j LOOP ON ERROR, IF FLAG 



•EXIT IF FATAL 



.WORD 

.WORD 

.WORD 

SET 

TRAP 



CiF.RDF 
8C4 
T85SR 
PKTSSR 

C$CLP1 



ERROR 

TRAP C$ESCAPE 
.WORD L 10064 -. 
j IS VOLUME CHECK SET IN XSTO ? 
j OKAY IF VOLUME CHECK IS SET 
•.CONTENTS Of TSSR FOR ERROR REPORT 
{VOLUME CHECK NOT SET 



j LOOP ON ERROR ? 



TRAP 
. WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
805 
18NVCK 
PKTMES 

C$CLP1 



{SET THE CVC BIT 

•SET THE PACKET ADDRESS TOR WRITE CHAR 
jWAIT FOR SSR TO SET 
;3R IF CARRY SET (GOOD RETURN) 
jSAVE CONTENTS f TSSR 
i DEVICE FATAL SSR FAILED TO SET 

TRAP 



•LOOP ON ERROR 
{EXIT IF FATAL 



IF y\ AG 
ERROR 



.WORD 
. WORD 
.WORD 
SEI 
TRAP 

TRAP 



CSERDF 
806 
T8SSR 
PKTSSR 

CJCIP1 

C*tSCAPE 
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1871 
187? 
1876 
1877 



1878 

1879 
1880 
1881 
188? 
1883 
1887 



1888 
1889 



1890 
1891 
1695 
1896 



189/ 

1898 
1899 
1900 
1901 



1902 
1903 
1904 
1905 
1906 
1908 
1910 
1911 

:9i2 

1913 

1914 
1915 
1916 
1917 

1916 



034640 

034642 

034650 

034652 

034656 

034656 

034660 

034662 

034664 

034666 

034666 

034670 

034674 

034 700 

034 704 

034 706 

034 710 

034710 

034712 

034714 

034716 

034720 

034 720 

034 722 

034722 

034724 

034726 

034 734 

034 7 36 

034742 

034 742 

034 744 

034746 

034/50 

034752 

034 752 

034 754 

034 760 

034762 

034766 

034 766 

034770 



35000 
035000 
035002 
035004 
035006 

035010 
035010 
035012 



000434 
032762 
001406 
016501 

104456 
001447 
035042 
012100 

1O4406 
042714 
010465 
004737 
103405 
010001 

104455 
001450 
035170 
012036 

104406 

104410 
000350 
032762 
001406 
016501 

104456 
001451 
035042 
012100 

104406 
0O4 737 
103002 
0O0137 

104432 
000304 



035000 

100004 
035010 
000000 
000010 



035022 
000000 



000020 
000002 



000006 



BIT #XS0VCK ( X5T0CR2) 

BEQ 40$ 

MOV TSSR(R5),R1 

ERRHRD ERRN0.T8VCK.PKTMES 



.WORD 1.10064- 
jIS VOLUME CHECK CLEAR IN XSTO ? 
» OKAY IF VOLUME CHECK IS CLEARED 
(CONTENTS OF TSSR FOR ERROR REPORT 
j VOLUME CHECK NOT CLEARED 



40$: 



040000 

ocoooo 

016326 



45$ 







TRAP 


C$ERHRD 






.UORD 


807 






.WORD 


T8VCK 






.WORD 


PKTMF.S 


CKLOOP 




;LOOP ON ERROR ? 








TRAP 


CSCLP1 


BIC 


*BIT14 # (R4) 


jCLEAR THE CVC BIT 




MOV 


R4.TSDBCR5) 


j SET THE PACKET ADDRESS FOR WHITE CHAR 


JSR 


PC.CHKTSSR 


jWAIT FOR SSR TO SET 




BCS 


45$ 


jBR IF CARRY SET (GOOD RFTURN) 




MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




ERRDF 


ERRNO.TBSSR.PKTSSR 


{DEVICE FATAL SSR FAILED TO SET 








TRAP 


C$FRDF 






.WORD 


808 






.WORD 


T8SSR 






.WORD 


PKTSSR 


CKLOOP 




{LOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


ESCAPE 


TST 


{EXIT IF FATAL ERROR 








TRAP 


CJESCAPE 






.WORD 


L 10064 -. 



000020 
000002 



000006 



016446 
034410 



50$: 
60*: 

62$: 



BIT 
BEQ 
MOV 
ERRHRD 



CKLOOP 



OXSOVC«,XST0(R2) 

50$ 

TSSRCR5J.R1 

ERRN0,T8VCK,PKTMES 



JSR PC.T5TL.00P 

BCC 62$ 

JMP T8LU0P 

EXIT TST 



lIS VOLUME CHECK CLEAR IN XSTO ? 

{OKAY IF VOLUME CHECK IS CLEARED 

{CONTENTS OF TSSH FOR ERROR REPORT 

j VOLUME CHECK NOT CLEARED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP ON ERROR ? 

TRAP 

j SHOULD WE DO ITERATIONS ? 

j BRANCH IF NOT 

I LOOP UNTIL COUNT EXPIRED 

} ALL DONE THIS TEST 

TRAP 
.WORD 



C$ERHRD 
809 

T8VCK 



CSCLP1 



CSEXIT 
L 10064 



jLOCAL STORAGE FOR IHIS TEST 
> - 



,*< . ♦10>£t77770 



TttPACKET: 



T8DATA: 



.WORD 100004 

,UORD T80ATA 

. WORD 

.WORD 10 



.WORD T8BKR 
.WORD 



{COMMAND PACKET FOR TEST 
jWRITE CHARACTERISTICS COMMAND 
{ADDRESS OF CHARACTERISTICS BLOCK 

j STARTING VALUE OF COUNTER 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS UF MESSAGE BUFFER 



N13 
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SEQ 0169 



1919 

1920 
1921 
192c? 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1^31 
1932 
1933 
1934 



035014 000020 

035016 000000 000000 

035022 



035042 
03507 7 
035170 
035257 

035274 

0352/4 
035274 



126 
126 
103 
126 



104401 



157 

157 
157 
157 



154 
156 
154 



.WORD 16. 
.WORD 0,0 

T8BFR: .BLKW 8. 



$ LOCAL TEXT MESSAGES FOR TEST 



{LENGTH OF MESSAGE BUFFER 



l MESSAGE BUFFER 



154 T8VCK: .ASCI/ 'Volume Check Bit Not Cleared' 



T8NVCK; 

TSSSR: 

TST8ID: 



.ASCIZ 
, ASCIZ 
, ASCIZ 
.EVEN 
ENDTST 



Volume Check Bit 
Contents of TS3R 
Volume Check' 



CVCIO Not Clear After Initialize CXSTOV 
Incorrect After Write Characteristics' 



L 10064; 



TRAP 



CSETST 



B 1 4 
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SEQ 0170 



1936 








1957 








1958 








1939 








1440 








1941 








194,^ 








1943 








1944 








194S 








1946 








194 ? 








1948 








1949 








19S0 








1951 








19V 








1955 








1**4 








1955 


055276 
0552 76 






I960 


0552 76 


00505 7 


002224 


1961 


0553C2 


012700 


040511 


1962 


05550c 


004757 


016500 


1965 


055512 


012757 


000024 


1964 


055520 






1965 


055520 
055520 








055520 


104402 




1966 








1967 


055522 


004757 


040556 


196A 


055 526 








055526 


012700 


000000 




055552 


104441 




196S 


055554 


012705 


002 762 


1970 


055540 


012704 


057240 


1971 


055544 


012764 


000010 


197? 


055352 






1975 


055352 








055352 


104404 




1974 








1975 


055554 


004757 


015764 


1976 


055560 


105405 




I960 


055562 


010001 




1981 


055564 








055564 


104455 






035V>6 


001605 






055570 


005646 






055572 


012024 




1962 


055574 


005057 


002220 


1983 


055400 


005057 


002222 


1954 


055404 


010465 


000000 


1985 


055410 


0O4757 


016326 


3 966 


055414 


105407 




198 7 


0554lo 


010001 




mx 


055420 








335*20 


IQ**S& 





0022* 



T9L00P; 



000006 



51 j 



lOt i 



.SBTTl. TEST 9 } COMPLETION INTERRUPT 



THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMANO IF THE INTERRUPT 
ENA8LE CIE) BIT IN THE COMMANO HEADER WORD IS SET, THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT, 

THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1). IT 
IS VERIFIED, JHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS 
GENERATED. FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED, THE 
FIR^T WITH IE-1 ANO THE SECOND WITH IE-O. IT IS VERIFIED THAT 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 
IE BIT IN XSTO IS 0, 



BGNTST 

CLfl 
MOV 
JSR 
MOV 

BGNSUB 



EXTFEA 
♦TST9ID.R0 
PC.TSTSETUP 
020, .LOOPCNT 



JSR PC,T9REST 

SETMI OPRIOO 



MOV 
MOV 
MOV 

BGNSEG 



♦TST0LK»10, ,R3 

*T9PACKET,R4 

O0,,PKBCNTCR4) 



f9: : 
iCLEAR EXTENDED FEATURES SWITCH 
lASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
iPERFORM 20 ITERATIONS 

i//////////// BEGIN SUBTEST //////////// 

T9.1: 

TRAP CIBSUB 

ISET PACKED TO INITIAL VALUES 
jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,R0 
TRAP CISPRI 
iSTART OF TEST DATA 
j GET THE ADDRESS OF COMMANO PACKF T 
iSTAPT WITH MINIMUM ALLOWABLE VALUE 



!>>>>)»>>>>>>> 



BEGIN 



SEGMENT 
TRAP 



>>>>»•»»*»»> 



CIBSEG 



JSR 


PC.SOFINIT 


BCS 


101 


MOV 


R0,R1 


ERRDF 


ERRNO,SFIERR,SFIMSG 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


t?4,TSDe(R5) 


JSR 


PC.CHKTSSR 


BCS 


151 


MOV 


R0.R1 


ERRDF 


tRRNQiT9$SK«PKTSSR 



lOO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT • 0* 

iSAVE CONTENTS OF TSSR 

■DEVICE FATAL ERROR DURING INIT 

TRAP 
.w'CftD 
.WOPD 
.WORD 

iCLEAR FATAL ERROR FLAG 

iCLEAR INTERRUPT RECEIVED FLAG 

i SET THE PACKET ADORE SS 

lUAIT FOT SSR TO SET 

j BR IF CARR'i SE. (GOUO RETURN) 



CIERDF 

901 

SF IERR 

SFIMSG 



iSAVE CONTENTS Of 
i DEVICE FATAL SSR 



TSSR 

FAILED TO vfcl 
TRAP 



CitRQF 



C14 
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1992 
1993 

3 994 



1995 
1996 

2000 



2001 
2002 
2003 
2004 
2005 
2006 
200 7 
2011 



2012 
2013 



2014 
2015 
2016 
2017 
201ft 
2019 
2020 



2021 
2022 
2023 
2024 
202* 
2026 

2026 



035422 
035424 
035426 
035430 
0354 34 
0354 34 
0354 36 
035436 
035440 
035442 
035446 
035450 
035450 
0354*.? 
035454 
035456 
035460 
035464 
0354 70 
035474 
035476 
035502 
0355O4 
035506 
035506 
035510 
035512 
035514 
035516 
035516 
035516 
035516 

035520 
035524 
035530 
03V, 32 

035536 
055536 
035536 

035540 
035544 
035546 
035552 
055560 
035562 
035566 



001606 
037757 
012036 
005237 

104406 

104410 
000056 
005737 
001004 

104456 
001607 
040046 
012036 
016501 
012702 
052701 
001402 
052 702 
020201 
001404 

104456 
001610 
037316 
012036 



104405 

012364 

020327 
103002 

000137 



104403 

005737 
001402 
004737 
033727 
001402 
0052*7 



002220 



15$: 



002222 



000002 
000200 
000100 

000100 



30$: 



000006 
003056 

035352 



55$: 



002220 

017172 

037274 000200 60$} 



INC 

CKLOOP 



FATFLG 



ESCAPE SEG 



TST 
BNE 
ERRHRD 



INTRECV 

??% 

ERRN0.T9NINT .PKTSSR 



22$; 


hOV 


TSSR(R5),R1 




MOV 


♦SSK.R2 




BIT 


•0>'I..R1 




BEQ 


25$ 




BIS 


♦0FL.R2 


25$; 


CMP 


R2.R1 




BF.Q 


30$ 




ERRHRD 


ERRN0.T9NBA, PKTSSR 



ENDSEG 



MOV 
CMP 
BHIS 
JMP 

ENOSUB 



(RS)*,PKBCNT(R4) 

R3,0TBLEND 

55$ 

5$ 



SF.Q 01/1 



.WORD 902 
.WORD T9SSR 
.WORD PKTSSR 

ISET FATAL ERROR FLAG 

lLOOP ON ERROR, IF FLAG SET 

TRAP C»CI.P1 

jBY-PASS SUBTEVT IF FATAL ERROR 

TRAP CIFSCAPF 

.WORD 10000$-. 
lOID AN INTERRUPT OCCUR ? 
(BRANCH IF YES 



TRAP 
.WORD 
.WORD 
.WORD 
iCET THE CONTENTS Of TSSR 
jEXPECTED CONTENTS OF TSSR 
iIS OFF-LINE BIT SET ? 
iBRANCH IF NOT OFF. LINE 
l5e T OFF-LINE IN EXPECTED DATA 



C$ERHRC 
903 
T9NINT 
PKTSSR 



lOOeS EXPECTED 
I OK AY IF MATCH 
jNBA NOT ZERO 



MATCH RECEIVED ? 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
904 
T9N6A 
PKTSSR 



l<< < <<<<< « <<<< tNO SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP CIEStG 

1 St 1 THE TEST WORD 
>HAS ALL DATA BEEN TESTED ? 
, BRANCH IF ALL DATA DONE 
iBRANCH TILL BACK TO ZERO 

jWWWWWWN END SUBTEST \\\\\\\VA\\\ 

L 10066} 

TRAP C$ESUQ 



00222A 



70* X 



TST 


FATFLG 


jANY FATAL ERRORS ? 


BEQ 


60$ 


iBRANCH IF NOT 


JSR 


PC.CKOROP 


> TRY TO DROP THE UNIT 


BIT 


T9eFRtu,«exTv 


jFXTENOEO FEATURES SlI T ? 


eta 


70$ 


iBR IF NO 


INC 


EXTFEA 


lSfcT EXT FEATURE FLAG 



D14 
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2030 
203! 
POV 
2033 

2034 

SOS* 

2036 

203? 

5036 
1*039 
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SEU 0172 



TFST 9, SUBTEST ? 

CHECK THAT UNUSED BITS BEING SET CAUSES 
WRITE CHARACTERISTICS COMMAND TO BE REJECTED 



2040 
2041 



2042 
2043 
2044 
2045 
2046 

204 7 
2048 

2049 
2053 
2054 



2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2066 



2067 
2068 



2069 

2070 
2074 



2W 



035566 
035566 
035566 

035570 
0355/0 
035574 
035576 
035602 
035606 

035612 
035612 

035614 
035620 
035622 
035624 
035624 
035626 
035630 
035632 
035634 
035640 
055642 
035644 
0356 50 
0356 54 
035660 
035662 
035664 
035664 
035666 
035670 
035672 
0356/4 
035674 
035676 
035676 
035700 
035702 
035706 
035710 
035710 
035712 
035714 
035716 
OS572Q 



104402 



012/00 
104441 
012703 
012704 
004737 



104404 

004737 
103405 
010001 

104455 
001611 
003646 
012024 
005037 
010400 
061300 
056310 
010465 
004737 
103405 
01OO01 

104455 
001612 
037757 
012036 

104406 

104410 
000056 
005737 
001004 

104456 
001613 
040046 
012036 
016501 



000000 

037302 
037240 
040336 



015764 



BGNSUB 



SETPRI OPRIOO 



5$; 



MOV 
MOV 
JSR 

BGNSEG 



002222 



00OO02 
000000 

0X6240 



10): 



151: 



002222 



0T92DATA.R3 

♦T9PACKET.R4 

PC.T9REST 



JSR 


PC.SOflNIT 


BCS 


101 


MOV 


R0.R1 


ERRDF 


ERRN0.SF1ERR.SFIMSG 



CLR 


INTRECV 


MOV 


R4.R0 


ADD 


(R3),R0 


BIS 


2(R3),(RO) 


MOV 


n4,TSDB(R5) 


JSR 


PC.WAITF 


HCV 


151 


MO ' 


R0.R1 


ERRDF 


ERRN0.T9SSR.PKTSSR 



CKLOOP 
ESCAPE SEG 



TST INTRECV 

BNfc 221 

ERRHRD ERRN0.T9NINT.PKTS5R 



,//////////// BEGIN SUBTEST //////////// 

T9.2J 

TRAP CiBSUB 

lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,RO 

TRAP CtSPRI 

iSTART OT TEST DATA FOR SUBTEST 
,GET THE ADDRESS OF COMMAND PACKET 
iRESTORE PACKET TO STARTING VALUES 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>»»>>> 

TRAP CiBSEG 

i DO SOFT INIT Of CONTROLLER 

»BR IF Soft INIT - OK 

l SAVE. CONTENTS OF TSSR 

iDEVICE FATAL ERROR DURING INIT 

TRAP CiERDF 

.WORD 905 
.WORD SFIERR 
.WORO SFIMSG 

iCLEAR INTERRUPT RECEIVED FLAG 

,START OF THE COMMAND PACKET 

I OFF' SET TO THE D^TA WORD TO TEST 

iSET THE DATA BITS TO BE TESTED 

j SET THE PACKET ADDRESS 

tWAIT FOR SSR TO SET 

j BR IF CARRY SET (GOOO RETURN) 

,SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 



000QC2 



Z'dU 



MOV 



TS'.iR(R5),Rl 



TRAP 


CtERDF 


.WORD 


906 


.WORD 


T9SSR 


.WORD 


PKTSSR 


j LOOP ON ERROR, IF >LAG SET 




TRAP 


CICLP1 


|BY PASS CHECKS IF FATAL ERROR 




TRAP 


CtESCAPF 


.WORD 


10000$" . 


lOID MN INTERRUPT OCCUR ? 




jBRANCH IF >ES 




TRAP 


CtfcRHRD 


.WORD 


l *0/ 


.WORD 


T9NIN1 


.WORD 


PKTSSR 



(GET THE CONTENTS OF TSSR 



I- 14 
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SEQ 0173 



2076 
207/ 

?078 

2079 
2080 
2061 
2085 



2086 
2087 



2088 
2089 
2090 
2091 
2092 
2093 
2094 



035724 
035730 
035734 
035736 
035742 
035744 
035746 
035746 
035750 
035752 
035754 
035756 
035756 
035756 
035756 

035760 
035764 
035770 
035772 

035776 

0357 76 
035776 



012702 
032701 
001402 
052 f02 
020201 
001404 

104456 
001614 
037371 
012036 



104405 

062703 
020327 

103002 
000137 



104403 



102206 
000100 

000100 



25$ 5 



MOV 


0SC!SSR!TSREJ!NBA,R2 


jf.XPECTED CONTENTS OF TSSR 




BIT 


00FUR1 


»IS OFF-LINE BIT SET ? 




BEQ 


251 


i BRANCH IF NOT OFF-LINE 




BIS 


00KL.R2 


|SET OFF-LINE IN EXPECTED DATA 




CMP 


R2,R1 


,00fcS EXPECTED MATCH RECEIVED ? 




BEQ 


30* 


j OKAY IF MATCH 




ERRHRD 


ERRN0,T92REJ,PKTSSR 


, COMMAND NOT REJECTED 








TRAP 


CIERHUD 






.WORD 


908 






.WORD 


T92REJ 






• WORD 


PKTSSR 



30* ; 



ENOSEG 



000004 
037316 

035602 



ADD 


04, R3 


CMP 


R3.0T92DONE 


BHIS 


59$ 


JMP 


5$ 



59$: 



ENDSUB 



l<<<<<<<< <<<< < END SEGMENT <<<<<<<<<<<<< 

10000$! 

TRAP C$ESEG 

jPOINT TO NEXT DATA PAIR 
, COMPARE TO END OF TEST DATA 
jOPANCH IF ALL DATA TESTED 
, BRANCH TILL BACK TO ZERO 

|\\\\\\\\\\\\\ END SL8TEST WWWW^W 

L10067; 

TRAP ClfcSUB 
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K14 



5EQ 0174 



2096 








209 7 








2096 








2099 








2100 








2101 








2102 








2103 








2104 








2105 


036000 
036000 








036000 


104402 




2106 








2107 


036002 








036002 


012700 


OOOOOO 




036006 


104441 




2106 


036010 


012703 


000001 


2109 


036014 


012704 


037240 


2110 


036020 


004737 


040336 


2111 








2112 


036024 








036024 


104404 




2113 








2114 


036026 


004737 


015764 


2115 


036032 


103405 




2119 


036034 


010001 




2120 


036036 








036036 


104455 






036040 


001615 






036042 


003646 






036044 


012024 




2121 


056046 


005037 


002222 


2122 


036052 


010564 


000006 


2123 


036056 


010465 


OOOOOO 


2124 


036062 


004737 


016240 


2125 


036066 


103405 




2126 


036070 


010O01 




2130 


036072 








036072 


104455 






036074 


001616 






036076 


037757 






036100 


012036 




2131 


036102 








036102 


104406 




2132 


036104 








036104 


104410 






036106 


000O56 




2133 


036110 


005737 


002222 


2134 


036114 


001004 




2138 


056116 








036116 


104456 






036120 


001617 






036122 


040046 






036124 


012036 




2139 


036126 


016501 


000002 


2140 


036132 


012702 


102206 


2141 


036136 


032701 


000100 



TEST 9, SUBTEST 3 

CHECK THE WRITE CHARACTERISTICS "JMMAND IS REJECTED 
ir ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT 



BGNSUB 



SETPRI 0P3IOO 



5$: 



MOV 
MOV 
JSR 

BGNSEG 



10*: 



15$ : 



22$! 



#1, R3 

*T9PACKET,R4 
PC»T9REST 



1 //////////// BEGIN SUBTEST //////////// 

T9.3: 

TRAP CIBSUB 

lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV M>RXOO,RO 

TRAP CISPRI 

jSTARTING BYTE COUNT 

j GET THE ADDRESS Of" COMMAND PACKET 

l RESTORE PACKET TO STARTING VALUES 



j >>>>>>>>>>>> BEGIN 



SEGMENT >>>>>>>>>>>> 

TRAP CSBSEG 



JSR 


PC.SO^INIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



CLR 


INTRECV 


MOV 


R3 t PKBCNT(R4) 


MOV 


R4.TSD&CR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0,T9SSR,PKTSSR 



;D0 SOFT INIT OF CONTROLLER 

I BR IF SOFT INIT • UK 

iSAVE CONTENTS Of TSSR 

jDEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
WORD 

, CLEAR INTERRUPT RECEIVED FL.AO 

j INSERT THE BYTE COUNT FOR T r _ST 

j SET THE PACKET ADDRESS 

l WAIT FOR SSR TO SET 

,BR IF CARRY SET (GOOD RETURN) 

i SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 



CIERDF 
909 
SF1ERR 
SFIMSG 









TRAP 


C$ERDF 








.WORD 


910 








.WORD 


T9SSR 








.WORD 


PKTSSR 


CKLOOP 






jLUUH ON ERF. JR. IK M *« ."PT 

TRAF 


C$CLPl 


ESCAPE 


SEG 




,BY-PASS SUBTEST IF FATAL L^WOR 

TRAP 
.WORD 


Cf ESCAPE 
10000$-. 


TST 


INTRECV 




j DID AN INTERRUPT OCCUR ? 




BNE 


22$ 




j BRANCH IF YES 




ERRHRD 


ERRN0.T9NINT 


.PKTSSR 


TRAP 
.WORD 
.WORD 
.WORD 


CstRHRD 

911 

T9NINT 

PKTSSR 



MOV TSSRCR5),Rl 

MOV oSC!SSRSTSREJ*NBA,R2 

BIT OUPL.Rl 



|GE T TH€ CONTENTS Or TSSR 
i EXPECTED CONTENTb OF TSSR 
j IS OFF-LINE BIT SET ! 
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25$: 



2142 


036142 


001402 




2145 


056144 


052702 


000100 


2144 


056150 


02C201 




2145 


036152 


001404 




2149 


056154 








056154 


104456 






056156 


001620 






036160 


037470 






036162 


012036 




2150 


036164 






2151 


036164 
056164 








056164 


104405 




2152 








2155 


056166 


005203 




2154 


056170 


020327 


000006 


2155 


056174 


002002 




2156 


056176 


000137 


036014 


2157 








2158 


056202 
056202 








036202 


104403 





BEQ 


25* 


BIS 


40FL.R2 


CMP 


R2.R1 


BEQ 


301 


ERRHRD 


ERRN0,T93REJ,PKTSSR 



50$: 



ENDSEG 



INC 


R5 


CMP 


R5.06 


BGE 


59$ 


JMP 


5$ 



59$; 



ENDSUB 



SEQ 0175 



BRANCH IF NOT C'FF-LINE 
jSET OFF-LINE IN EXPECTED DATA 
j DORS EXPECTED MATCH RECEIVED ? 
jOKAY IF MATCH 
{COMMAND NOT REJECTED 

TRAP 
.UORD 
.WORD 
.WORD 



CfERHRD 
912 

T93REJ 
PKT5SR 



l<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$; 

TRAP C$ESEG 

iNEXT BYTE COUNT 

I TESTED ALL INVALID ? 

iBRANCH IF TEST DONE 

j BRANCH TILL BACK TO ZERO 

j\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L10070: 

TRAP CJESUB 
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SEQ 0176 



2160 








2ifcl 








2162 








2163 








2164 








2165 








2166 








?167 








2168 








2169 


036204 
036204 








036204 


104402 




2170 








2171 


036206 








036206 


012700 


000000 




036212 


1044 * 1 




2172 


036214 


0127C3 


037302 


2173 


036220 


012704 


037240 


2174 


036224 


004737 


040336 


2175 








2176 








2177 


036230 


004737 


015764 


2178 


036234 


103405 




2182 


036236 


010001 




2183 


036240 








036240 


104455 






0362^2 


001621 






036244 


003646 






036246 


012024 




2184 


036250 


005037 


002222 


2185 


036254 


052^37 


000001 037250 


2186 


036262 


01046:5 


000000 


2187 


036266 


004737 


016240 


2188 


036272 


103405 




2189 


036274 


010001 




2193 


036276 








036276 


104455 






036300 


001622 






036302 


037757 






036304 


012036 




2194 


036306 








36306 


104406 




2195 


036310 








036310 


104410 






036 *U2 


000056 




2196 


056314 


0057 3? 


002222 


2197 


056320 


001004 




2201 


05322 








0.6 < 12 


104456 






or ftW4 


001623 






036S26 


040046 






0'«f*330 


012036 




2202 


C"»3*3 


016501 


000002 


2203 


0JC336 


012702 


102206 


?204 


036342 


0^:701 


000100 


2205 


036346 


00 14 02 




2206 036350 


052702 


000100 



TEST 9, SU8TE5T 4 

SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
REJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 



5$} 



BGNSUB 



SETPRI 0PRIOO 



MOV M92DATA.R3 

MOV *T9PACKET,R4 

JSR PC.T9REST 



JSR PCSOFINIT 

BCS 10* 

MOV R0.R1 

ERRDF ERRNO . SF IERR , SFIMSG 



10*: 



CLR 


INTRECV 


BIS 


♦1.Y90ATA 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


BCS 


151 


MOV 


RO.Rl 


ERRDF 


ERRNO, T9SSR, PKTSSR 



15*5 



CKLOOP 
ESCAPE SUB 



1ST INTRECV 

BNE 221 

ERRHRD ERRNO , T9NINT , PKTSSR 



22* s 



MOV 


TSSR(R5),R1 


MOV 


0SC!SSR|TSREJINBA,R2 


BIT 


0OFL.R1 


BEQ 


25) 


BIS 


OQFL , R2 



l //////////// BEGIN SUBTEST /////.'////// 

T9.4: 

TRAP C$BSUB 

I LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV CPRIOO.RO 
TRAP CSSPRI 
I START OF TEST DATA FOR SUBTEST 
jGET THE ADDRESS OF COMMAND PACKET 
jRESTORE PACKET TO STARTING VALUES 



jDO SOFT INIT OF CONTROLLER 

,BR IF SOFT INIT - OK 

j SAVE CONTENTS Of TSSR 

j DEVICE FATAL ERROR DURING INIT 

TRAP 
♦ WORD 
.WORD 
.WORD 

I CLEAR INTERRUPT RECEIVED FLAG 

jMAKE ADDRESS ODD 

l SET THE PACKET ADDRESS 

jWAIT FOR SSR TO SET 



OERDF 
913 

SFIERR 
SFIMSG 



,BR IF CARRY SET (GOOD RETURN) 



;SAVE CONTENTS Of 
j DEVICE FATAL SSR 



TSSR 

FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 
{LOOP ON ERROR, IF FLAG SET 

TR^P 
FATAL ERROR 
TRAP 
. WORD 
OCCUR ? 



iBY-PASS SUBTEST IF 



I DID AN 
j BRANCH 



INTERRUPT 
IF YES 



iGET THE CONTENTS OF 
jEXPECTED CONTENTS OF 
lib OFF LINE BIT SET 



TRAP 
.WORD 
.WORD 
.WORD 
TSSR 
TSSR 



CIERDF 
914 
T9SSR 
PKTSSR 

CiCLPi 

C IE SCAPE 
L10071-, 



CIFRHRb 

915 

T9NINT 
PKTSSR 



(BRANCH IF NCT OFF-LINE 

jSET OFF-LINE IN EXPECTED DATA 



114 
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2207 
2208 
2212 



2213 
221* 
2215 



HARDWARE TESTS MACRO M1200 
COMPLETION INTERRUPT 



2216 



0*5354 
036356 
036360 
036360 
036362 
036364 
036366 
036370 

036370 
036370 
036370 



020201 
001404 

104456 

001624 
037563 
012036 



104403 
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25$; 



30$} 



CMP 


R2.R1 


jDOES EXPECTED MATCH RECEIVED 


? 


BEQ 


30$ 


j OKAY IF MATCH 




ERRHRD 


ERRNQ,T94REJ t PKTSSR 


l COMMAND NOT REJECTED 








TRAP 


CiERHRD 






. WORD 


916 






.WORD 


T94REJ 






.WORD 


PKTSSR 



SEQ 0177 



feNDSUB 



j\\\\\\\\\\\\\ END 3U67fcST \\\\\\\\\\\\\ 

1.10071{ 

TRAP C$£SU6 



J 14 
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SEQ 0178 



2218 








2219 








2220 








2221 








2222 








2225 








2224 








2225 








2226 








2227 


056572 
056572 








056572 


104402 




2228 








2229 


056574 








056574 


012700 


000000 




056400 


104441 




2250 


056402 


012705 


000001 


2251 


056406 


012704 


037240 


2252 


056412 


004737 


040336 


2255 








2254 


056416 








056416 


1O4404 




2255 








2256 


056420 


004737 


015764 


2257 


056424 


105405 




2241 


056426 


010001 




2242 


056430 








056450 


104455 






056452 


001625 






0.56434 


0O5646 






056456 


012024 




2245 


056440 


005057 


002222 


2244 


056444 


01055? 


037254 


2245 


056450 


010465 


OOOOOO 


2246 


056454 


004757 


016240 


224 7 


056460 


105405 




2248 


056462 


010001 




2252 


056464 








056464 


104455 






056466 


001626 






056470 


037757 






0564 72 


012056 




2255 


0564 74 








056474 


104406 




2254 


0564 76 








0564 76 


104410 






056500 


000056 




2255 


056502 


005757 


002222 


22!>6 


056506 


001004 




2260 


036510 








05651C 


104456 






056512 


00162 7 






056514 


040046 






056516 


012056 




2261 


056520 


016501 


000002 


2262 


056524 


012702 


102206 


£263 


056530 


032701 


000100 



!TE3T 9 SUBTEST 5 

I CHECK THMT WRITE CHARACTERISTICS COMMAND IS REJECTED [F THE 

; MESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14) 



BGNSU8 



SETPRI OPRIOO 



5$ 



MOV 
MOV 
JSR 

BGNSEG 



10$: 



15$; 



01.R3 

0T9PACKET.R4 
PC.T9REST 



JSR 


PC.SOFINIY 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNQ.SFIERR.SFIH5G 



CLR 


INTRECV 


MOV 


R5,T90ATA»4 


MOV 


R4,TSD8(R5) 


JSR 


PC.WAITF 


BCS 


151 


MOV 


R0.R1 


ERRDF 


ERRN0.T9SSR.PKTSSR 



j //////////// BEGIN SUBTEST //////////// 

T9.5: 

TRAP C$BSUB 

jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 
TRAP CiSPRI 

I STARTING BUFFER LENGTH 

>GET THE ADDRESS OF COMMAND PACKET 

jRESTORE PACKET TO STARTING VALUES 

;>>>>>>>>>>>> REGIN ;*i_GMENT >>>>»>*. •>>>•- 

TRAP CI8SEG 

i DO SOFT INIT OF CONTROLLER 

I BR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

lOEVXCE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 917 
.WORD SFIERR 
.WORD SFIMSG 

iCLEAR INTERRUPT RECEIVED FLAG 

I INSERT THE BAD MESSAGE LENGTH 

j SET THE PACKET ADDRESS 

;WAIT FOR SSR TO 5ET 

jBR IF CARRY SET (GOOD RETURN^ 

i SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 



22$: 







TRAP 


CIERDF 






.WORD 


918 






.WORD 


T9SSR 






.WORD 


PKTSSR 


CKLOOP 




jLOOP ON ERROR , IF FLAG SET 








TRAP 


C$CLP1 


ESCAPE 


SEG 


jBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


CiE SCAPE 






.WORD 


10000$-. 


1ST 


INTRECV 


iDIO AN INTERRUPT OCCUR ? 




BNE 


22i 


jBRANCH IF YES 




ERRHRD 


ERRN0,T9NINT, PKTSSR 










TRAP 


C$ERHRO 






.WORD 


919 






.WORD 


T9NINT 






.WORD 


PKTSSR 


MOV 


TSSR(R5),R1 


iGfcT THE CONTENTS OF TSSR 




MOV 


0SC!SSRJTSR6J!NBA,R2 


lEXPECTED CONTENTS OF TSSR 




BIT 


00FL.R1 


ilS OFF-LINE BIT SET ? 
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2264 
2265 
2266 
2267 
2271 



2272 
2273 



2274 
2275 
2276 
2277 
2278 
2279 
2280 



036534 
036536 
036542 
036544 
036546 
036546 
036550 
036552 
036554 
036556 
036556 
036556 
036556 

036560 
036562 
036566 
036570 

036574 
036574 
036574 



001402 

052702 000100 

020201 

001404 

104456 

001630 
037661 
012036 



104405 

C05203 

020327 000014 

002002 

000137 036406 



25$; 



BEQ 


25$ 


BiS 


00FL.R2 


CMP 


R2.R1 


BEQ 


30$ 


ERRHRD 


ERRN0.T95REJ.PKTSSR 



30$ 



ENDSEG 



INC 


R3 


CMP 


R3,<U4 


BGE 


59$ 


JMP 


5$ 



59$ j 



ENOSUB 



SEQ 0179 



104403 



j BRANCH IF NOT OFF-LINE 

»SET OFF-LINE IN EXPECTED DATA 

iDOES EXPECTED MATCH RECEIVED ? 

j OKAY IF MATCH 

} COMMAND NOT REJECTED 

TRAP C$ERHRD 
. UORD 920 
.WORD T95REJ 
.WORD PKTSSR 

i<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$? 

TRAP C$E5EG 

j NEXT BUFFER LENGTH 

; HAVE ALL BAD VALJES BEEN TESTED ? 

jBRANCH IF ALL TESTED 

I BRANCH TILL BACK TO ZERO 

j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10Q72; 

TRAP C*ESUB 
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LI 4 



SEQ 0180 



2282 








2285 








2284 








2285 








2286 








2287 








2288 








2289 








2290 








2291 








2292 








2295 








2294 


036576 
056576 








056576 


104402 




2295 


036600 


005737 


002224 


2296 


036604 


001002 




2297 


036606 


000137 


037026 


2298 


036612 


004737 


040336 


2299 








2300 


036616 








036616 


012700 


000000 




036622 


104441 




2501 


036624 


012703 


002762 


2502 


036650 


012704 


037240 


2305 


056654 


012764 


000012 


2304 


056642 






2505 


056642 








036642 


104404 




2306 








2307 


036644 


004737 


015764 


2 508 


036650 


103405 




2512 


036652 


010001 




23X3 


036654 








036654 


104455 






056656 


001631 






036660 


003646 






036662 


012024 




2514 


036664 


005037 


002220 


2515 


036670 


005037 


002222 


2316 


036674 


010465 


000000 


,'517 


036700 


004737 


016326 


iiSlB 


036704 


10.3407 




2319 


036706 


010001 




2323 


036 710 








036710 


104455 






056712 


001632 






036714 


037/57 






036716 


012036 




2524 


036720 


005237 


002220 


2525 


036724 








036724 


104406 




2326 


036726 








036726 


104410 






036/50 


000056 




232? 


036/32 


005737 


002222 


2328 


036736 


001004 





l ♦ 

j TEST 9, SUBTEST 6 

i THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED 

{FEATURES MODE IS ENABLED (AS DETERMINED BY EXAMINING 

jXST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS). 

i IT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED 

{IF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL 

;0R GREATER. 

} 



4$ 



000006 



5$: 



10* s 



15$: 



BGNSUB 



1ST 


EXTFEA 


BNE 


4$ 


JMP 


55$ 


JSR 


PC.T9REST 



SETPRI tfPRIOO 



MOV 
MOV 
MOV 

BGNSEG 



INC 
CKl.OOP 



!ST 
BNE 



*TSTBLK*10, ,R3 
0T9PACKET.R4 
010, .PKBCNTCR4) 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO»SFIERR,SFIMSG 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSfl 


BCS 


15$ 


MOV 


Ro.ru 


ERRDF 


ERRN0 < T9SSR,PKTSSR 



FATFLG 



ESCAPE SEG 



INTRECV 
22$ 



I //////////// BEGIN SU8TEST //////////// 

T9.6: 

TRAP CIBSUB 

j IS EXTENDED FEATURES SOFT, SW SET? 
iBR, IF SOFTWARE SWITCH IS SET (ON) 
{EXIT SUBTEST 
{SET PACKET TO START-UP VALUES 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 

TRAP C$SPRI 

{START OF TEST DATA 

{GET THE ADDRESS OF COMMANO PACKET 

{START WITH EXTENDED FEATURES VALUE: 

!>>>>>>>>>:>*:> BEGIN SEGMENT >>>>>>>■»>>>> 

TRAP C$BSEG 



i DO SOFT INIT OF CONTROLLER 
,BR IF SOFT INIT - OK 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL ERROR DURING LNIT 

TRAP 



.WORD 
.WORD 
.WORD 

{CLEAR FATAL ERROR FlAG 

iCcEAR INTERRUPT RECEIVED FLAG 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

{BR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAH 
.WORD 
.WORD 
.WORD 

ISM FATAL ERROR FLAG 

{LOOP ON ERROR, IF FLAG 



CiERDF 
921 

SFIERR 
SFIMSG 



{BY -PASS SUBTEST IF 



{DID AN 
{BRANCH 



INTERRUPT 
IF YES 



SET 

TRAP 
FATAL ERROR 
TRAP 
.WORD 
OCCUR r 



C$ERDF 
922 
T9SSR 
PKTSSR 



C$CLP1 

C*E C *CAPE 
10000$- . 



M14 
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2532 



2333 
2334 
2335 
2336 

2337 
233>3 
2339 
2343 



2344 
2345 



2346 
234 7 
2348 
2349 
2350 
2351 
235H 



036740 
036740 
036742 
036744 
036746 
036750 
036754 
036760 
036764 
036 766 
036772 
0367 74 
036 7 76 
036776 
037000 
037002 
037004 
037006 
03 7006 
037006 
037006 

037010 
03/014 
037020 
037022 

03 7026 
037026 
037026 



104456 
001633 
040046 
012036 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
001634 

037316 
012036 



104405 

012364 
020327 
103002 
000137 



104403 



EROHRD ERRNO , T9NINT , PKTSSR 



000002 
000200 
000100 

000100 



22$ J 



25$: 



MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


BIT 


*0FL,R1 


BEQ 


25$ 


BIS 


40FL.R2 


CMP 


R2.R1 


BEQ 


30$ 


ERRHRD 


ERRN0.T9NBA, PKTSSR 



30$: 



EHDSEG 



000006 
003056 

036642 



MOV 


(R3;*.PkBCNT(RO 


CMP 


R3.0T8LEND 


BHIS 


55$ 


JMP 


5$ 



$5$; 



ENDSUB 



SEQ 0161 



TRAP 
.WORD 
.WORD 
.WORD 
jGET THE CONTENTS Of- TSSR 
j EXPECTED CONTENTS OF TSSR 
iIS OFF-LINE BIT SET ? 
I BRANCH 1^ NOT OFF-LINE 
j SET OFF-LINE IN EXPECTED DATA 
j DOES EXPECTED MATCH RECEIVED 
{OKAY IF MATCH 
j NBA NOT ZtRO 

TRAP 
.WORD 
.WURD 
.WORD 



CIF.RHRD 
923 

T9NINT 
PKTSSR 



C$FRHRD 
924 

T9NBA 
PKTSSR 



I <<<<<<<<<<<<< £ND SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

iSET THE TEST WORD 
j HAS ALL DATA BEEN TESTED ? 
l BRANCH IF ALL DATA DONE 
j BRANCH TILL BACK TO ZERO 

i\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L1Q073: 

TRAP C$£SUB 
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SEQ 0182 



2354 

2355 
2356 

2357 

2 558 
2359 
2360 
2361 
2362 
2363 



2364 
2365 



2366 
2367 
2368 
2369 
2373 
2374 



2375 
2376 
2377 
2378 
2379 
2380 
2384 



238b 
2386 

2387 



2393 

2394 

239b 
2 596 
239/ 
2398 
2399 



037030 
037030 
037030 

037032 

037032 

037036 

03/040 

037044 

037050 

037054 

037056 

037060 

037060 

037062 

037064 

037066 

037070 

037074 

037100 

037104 

037110 

03/112 

037114 

03/114 

037U6 

057120 

037122 

037124 

037124 

037126 

037126 

037130 

03713? 

037136 

037140 

037140 

057142 

03/144 

037146 

03/150 

037150 

03/152 
037156 
037162 
57U>6 
037172 



104402 



012/00 
104441 
012704 
004 737 
004737 
103405 
010001 

104455 
001635 
003646 
012024 
005037 
052714 
010465 
004737 
103405 
010001 

104455 
001636 
037757 
012036 

104406 

104410 
000102 
005737 
001004 

104456 
001637 
040046 

012036 

104406 

00503 7 
042714 
010465 
00473/ 
103405 



5 ■ 

{TEST 9, SUBTEST 7 

JTEST WRITE CHARACTERISTICS WITH/WITHOUT INTERRUPTS ENABLED 

i 
i - 



000000 

03 7240 
040336 
015764 



002222 
000200 
000000 
016326 



10$ 



15$ 



002222 



22$ 



002222 

000200 
OOOOCO 
016326 



BGNSUB 



i//////////// BEGIN SUBTEST //////////// 

T9.7: 

TRAP C$BSU8 



SETPRI 


4PRIO0 


j LOWER PRIORITY TO ALLOW INTERRUPTS 






MOV 


£PRI0O,RC 






TRAP 


C$SPRI 


MOV 


0T9PACKET.R4 


;GET THE ADDRESS OF COMMAND PACKET 


JSR 


PC.T9REST 


{SET UP A VALID PACKET 




JSR 


PC.SOFINIT 


;D0 SOFT INIT OF CONTROLLER 




BCS 


10$ 


»BR IF SOFT INIT - OK 




MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




ERRDF 


ERRN0,SFIERR,SF1MSG 


{DEVICE FATAL ERROR DURING INIT 








TRAP 


C$ERDF 






.WORD 


925 






.WORD 


SFIERR 






.WORD 


SFIMSG 


CLR 


INTRECV 


j CLEAR INTERRUPT RECEIVED FLAG 




BIS 


$BIT7,(R4) 


i ENABLE INTERRUPTS 




MOV 


R4,TSDB(R5) 


j SET THE PACKET ADDRESS 




JSR 


PC.CHKTSSR 


{WAIT FOR SSR TO SET 




BCS 


15$ 


tBR IF CARRY SET (GOOD RETURN) 




MOV 


R0.R1 


{SAVE CONTENTS OF TSSR 




ERRDF 


ERRN0.T9SSR.PKTSSR 


{DEVICE FATAL SSR FAILED TO SET 








TRAP 


C$ERDF 






.WORD 


926 






.WORD 


T9SSR 






.WORD 


PKTSSR 


CKLOOP 




{LOOP ON ERROR, IF FLAG SET 








TRAP 


CSCL.P1 


ESCAPE 


SUB 


;BY-PASS SUBTEST if FATAL ERROR 








TRAP 


CSESCAPE 






. WORD 


L10074-. 


1ST 


INTRECV 


{DID AN INTERRUPT OCCUR ? 




BNE 


22$ 


{BRANCH IF YES 





ERRHRD ERRNO , T9NINT , PKTSSR 



CKLOOP 



{LOOP ON ERROR ? 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRO 

92 / 

T9NINT 

PKTSSR 

C5CLP1 



CLR 


INTRECV 


BIC 


OB U / . 1 R4 ) 


MOV 


R4, TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


25$ 



{CLEAR INTERRUPT RECEIVED FLAG 

{DISABLE INTERRUPTS 

{SET THE PACKET ADDRESS 

I WAIT FOR SSR TO SET 

iBR IF CAKR* <^ (.GOOD RETURN) 
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B 1 



SEQ 0183 



2400 037174 


010001 


2404 037176 




037176 


104455 


037200 


001640 


037202 


037757 


037204 


012036 


2405 037^06 




057206 


104406 


2406 037210 




037210 


104410 


037212 


000020 


2407 037214 


0057 3 7 002222 


2*06 03 7220 


001404 


2412 03 7222 




05/222 


104456 


037224 


00!641 


03 7226 


040137 


03 7230 


012036 


241* 03 7232 




2411 03/232 




03 7232 




037232 


104403 


2415 




2416 037254 




037234 


1044 32 


037236 


001152 


241/ 




2418 




2419 




2420 




24^ I 




2425 057240 




2426 03 7240 


100204 


i.4a/ 03 7242 


03 7250 


2428 03 7244 


000000 


2429 037246 


000010 


24 30 




2431 037250 




2432 037250 


037262 


2433 037252 


OOOOOO 


24 54 03 7254 


000016 


2455 037256 

24 36 

2457 03726? 


OOOOOO oooooo 




24 38 




24 59 




2440 




2441 




2442 




244 3 




2444 




2445 




2446 




24* / 




x J 443 




«^449 




445Q Q373Q£ 





i'-J 



MOV 


R0.R1 




iSAVf CONTENTS Of TS5R 


ERRDF 


ERRN0,T9SSR 


,PKTSSR 


iDEVICF FATAL SSR FAILED TO 5F.T 

TRAP 
.WORD 
.WORD 
.WORD 


CKLOOP 






jLOOP ON ERROR, IF FLAG SET 

TRAP 


ESCAPE 


SUB 




jBY-PASS SUBTEST IP FATAL ERROR 

TRAP 
.WORD 


TST 


INTRKV 




iDID AN INTERRUPT OCCUR ? 


BfcU 


50 * 




j BRANCH IF NOT 



ERRHRD ERRNO, T9INT .PKTSSR 



30li 



TRAP 
.WORD 
.WORD 
.WORD 



C IE RDF 

928 

T9SSR 

PKTSSR 

CICLP1 

CtLSCAPF. 
LIOO'M . 



ClERHRp 

929 

T9INT 

PKTSSR 



ENDSU8 



EXIT 



|\\\\N\\\\\\\\ ENO S^TEST \\\\\\\\\\\\\ 

110074s 

TRAP CtFSUi 



TST 



I ALL. DONE THIS TEST 



TRAP 

.WORO 



CtExIT 
L 10065 



iLOCAL STORAGE FOR THIS TEST 



T9PACKET! 



T90ATAi 



WORD 

WORD 
WORO 
WORD 



liORD 
WOPO 
WORD 
WORD 



100204 

T90ATA 



8. 



T9BFR 


14. 

0,0 



T9BFRj .BLKW 8. 

Ft ST DATA r JR SUBTEST VWO 

DATA HAS f ORMAT • 



jCOMMANO PACKET FOR TEST 

1 WRITE CHAR CGMMANO, WITH If, ACK 

I ADDRESS OF CHARACTERISTICS BLOCK 

lST*RTING VALUE OF BLOCK SI/E 

ICHMRACTERI5TICS DATA BLOCK 
lADDRFSS OF MfSSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

jMESSAGE BUFFER 



1ST w>ORD 
2ND WQRD 



OUStl TO TfcST WORD IN PAQKLI 
U1TS TO ^ET FQR TCtiT 



TWQATAi 



C1.5 
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SFQ 0164 



2451 
24 V 

2453 
2454 
2455 

2456 

2457 
2*56 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
24 70 
24 71 
24 72 



037502 
0377,06 
037312 



037316 
037371 
037470 
037563 
03766J. 
037757 
040046 
040137 
040226 
040311 



000000 037140 

000002 000001 

000004 100100 
037316 



127 
127 
127 
127 
127 
103 
105 
1?5 
111 
103 



122 
122 
122 
122 
122 
157 
170 
156 
156 
157 



111 
111 

111 
111 
111 
156 
160 
145 
143 
155 



T92D0NE 



.WORD 0,BIT5!BIT6!BIT9!BIT10IBIT11>BIT12IBIT13 
.UORD 2, Biro 
.WORD 4,bIT6IBITl5 



i LOCAL 
I - 

T9N8A; 

T92REJ: 

T93REJj 

T94REJ: 

T95REJ; 

T9SSA} 

T9NINTt 

T9INT; 

79TSBA: 

TST9I01 



TEXT MESSAGES FOR TEST 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
♦ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
,£VtN 



WRITE CHARACTERISTICS 

WRITE CHARACTERISTICS 

WRITE CHARACTERISTICS 

WRITE CHARACTERISTICS 

WRITE CHARACTERISTICS 



Command Not Accaptad' 

Not Ra.jacttd With Hon Imro 



Not 


R« 


acttd With 


Inval 


d 


Not 


Ra" 


actad With 


Inval 


d 


Not 


Ra" 


acttd With 


Inval 


• d 



Unuaad F ialda' 
Data Count' 
Block Addra«« 
Buffar langth* 



Contanta of TSSR Xncofract Altar WRITE CHARACTERISTICS 
Expactad Intarrupt Not Racaiv«d On WRITE CHARACTERISTICS 
Unaxpactad Intarrupt Rtcatvad On WHITE CMARACTfRISUCS 1 
Incorract TSBA Addraaa Aftar WRITE. CHARACTERISTICS' 
Cofflpl«tien Interrupt 1 



Dll 
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'jE(J 018b 



24/5 
24 76 
24 7 7 
24 78 
24 79 
2400 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2400 
2491 
2492 
2493 
2494 
2495 



^40336 
040336 
040342 
040346 
040352 
040356 
040360 
040364 
040370 
040372 
040376 
040400 
040402 
04O406 
0404iO 
040410 
040410 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
00020 / 



104401 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUtLb 



T9;»ESTs 



037240 
100204 
037250 

000010 
037262 

000016 



037262 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

RT5 

ENOTST 



0T9PACKE T.R1 
0100204, (Rl). 

*T90ATA,(R1)» 

(Rl)* 

«8.,(R1)» 

*T9eFR,(Rl)* 

(Rl)* 

014. t (Rl)» 

(Rl>* 

(Rl) 

T96FR 

PC 



jSAVE THE REGISTERS 

iSTART Of THE PACKE T 

lW*1ITE CHARACTERISTICS WITH ACK, IE 

lADDRESS Of CHAR DATA BLOCK 

lEXTENOEO ADDRESS 

I SIZE OT DATA BLOCK IN Br US 

j ADDRESS OT MESSAGE BUFFER 

iLENGTH OF MESSAGE RUFFER 



iCLtAR 1ST 
, RE TURN 



LOC IN MESSAGE BUFFER 



L 1006b: 



TRAP 



CILTST 



h 1 b 
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SEQ 0186 



249 7 






2498 






i>4^9 






2500 






2501 






2502 






250? 






2504 






2505 






2506 






250 7 






2S08 






2509 






2510 






2511 






2512 040412 






040412 






2517 040412 


012700 


0433- ' 


2518 040416 


004737 


016500 


2S19 04042*: 


012737 


000024 002214 


2520 040430 






2521 






2522 0404 50 






0404 30 






040450 


104402 




2523 






2524 040432 


004737 


043366 


2525 040456 






040456 


012700 


000000 


040442 


104441 




2526 040444 


C12704 


042530 


252 7 040450 


012764 


000010 000006 


2528 O40456 






2529 040456 






O40456 


104404 




2530 






2531 O4046O 


004757 


015764 


25 32 040464 


103405 




2536 040466 


010OO1 




2537 O404 70 






040470 


104455 




0404 72 


001751 




0404 74 


003646 




040476 


012024 




2538 040500 


005037 


002220 


2539 040504 


00503 7 


002222 


2S40 040MO 


010465 


000000 


2541 040514 


004 7 37 


016326 


2542 040520 


103407 




254 3 040522 


010001 




2547 O40524 






040524 


104455 




040526 


001 /52 




040530 


04 50 70 




040532 


012036 




2548 0405 54 


005237 


002220 


2549 040540 







SHTTl TtST 10} BASIC PACKET PROTOCOL 

THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE HUFFFR RELEASE 
COMMAND, THF FACTION OF THE ACK BIT IN THE COMMAND HEADER WORD, 
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC, 



TEST 10 SUBTEST I 

CHECKS THAT .'HE MESSAGE BUFFER RELEASE COMMANO WORKS 
PROPERLY ANO (HAT NO INTERRUPT IS GENERATED uVEN 
IF THE "IE" BIT IS SET IN THE COMMANO PACKET 



T10L00P; 



BGNTST 

MOV 
JSR 
MOV 



5$; 



BGNSU8 



JSR 
SETPRI 



MOV 
MOV 

BGNSEG 



JSR 
BCS 
MOV 
ERRDF 



101: 



otstioio.ro 
pc.tstsftup 

020. .L00PCNT 



PC.T10RST 
4PRI00 



0UOPACKET.R4 
*tt,,PKBCNT(R4) 



PC.SOFINIT 

10$ 

HO, HI 

ERRNO.SFIERR.SFIMSG 



CLR 


FATFLG 


CLR 


INTPECV 


MOV 


R4.TS0BCR5) 


JSR 


PC.CHKTSSR 


RCS 


15$ 


MOV 


HO, HI 


ERRDF 


ERRN0,T10SSR*PKT^R 



T10: : 
jASCII MESSAGE TO IDENTIFY 
I DO INITIAL TEST SETUP 
, PERFORM 20 ITERATIONS 



TEST 



\//////////// BEGIN SUBTEST //////////// 

TXO. I: 

TRAP CIBSUD 

I SET PACKET TO INITIAL VALUES 
lLOWER PRIORITY 10 ALLOW INTERRUPTS 

MOV OPRIOO.RO 

TRAP C«SPRI 

jGFT THE ADDRESS OF COMMAND PACKET 
, START WITH MINIMAL ALLOWABLE VALUE 

j >> •* >>>>>> > > > BEGIN SEGMENT >>>>>>»>>»»> 



I DO SOFT INIT OF CONTROLLER 
iHR U SOF T INIT • OK 
j SAVE CONTENTS Of TSSR 
iDEVICE FATAL ERROR DURING INIT 

TRAP 



151} 



INC 
CKLQQP 



FATFLG 



.WORD 

.WORD 
.WORD 

I CL EAR FA1AI ERROR FLAG 

jCLEAR INTERRUPT RECEIVED FLAG 

j SET THE PACKET ADDRESS 

j WAIT FOR SSR Tfi .ET 

iBR IF CARRY SET (GOOD RETURNS 

jSAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

iSE T FATAL FRROR FLAG 

lLOQR ON ERROR, IF FLAG SET 



C IE RDF' 
1001 
SFIbRR 
SFIMSU 



C ft RDF 
1002 
T 10SSR 
PKT55R 



F 1. L: 



TSV5A - HARDUARI 


! TESTS 


MACRO Ml 


200 2: 


TEST 10: BASIC 


PACKET 1 


PROTOCOL 




040540 


104406 






2550 040542 








040542 


104410 






040544 


000056 






c?551 040546 


005737 


002222 




2552 040552 


001004 






2556 O40554 








040554 


104456 






040556 


001753 






040560 


043157 






040562 


012036 






2557 040564 


016501 


000002 




2558 040570 


012702 


000200 




2559 0405/4 


032701 


000 100 




2560 040600 


001402 






2561 040602 


052 702 


000100 




2562 040606 


020201 






2563 040610 


001404 






2567 040612 








040612 


104456 






040614 


001754 






O40616 


042731 






040620 


01203b 






£568 040622 








2569 040622 








040622 








040622 


104405 






21/0 040624 








040624 


104404 






2:>7i 








25 72 040626 


005037 


002222 




2573 040632 


012737 


025252 


042552 


2574 040640 


012714 


100212 




25 75 040644 


010465 


OOOOOO 




25 76 O40650 


0O4737 


016326 




257 7 C40654 


103407 






25 78 040656 


010O01 






2582 O40660 








040660 


104455 






040662 


001755 






040664 


04 30 70 






040666 


012056 






258 3 O406 70 


005237 


002220 




2554 040674 








0406 74 


104406 






2585 040676 


005 7 3 7 


002222 




2586 040702 


001404 






2590 040704 








040704 


104456 






0407(>6 


001 /56 






O40710 


04 3250 






040712 


012036 






2591 040714 


016501 


O000O2 




2592 040720 


012702 


000200 




2593 040724 


C52701 


000100 




<>?>94 040 MO 


001402 






«;&«> Q407& 


052*02 


000100 
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22$: 



25$: 



30$: 



45$: 



52$ t 



SEQ 018/ 











TRAP 


C$CLP1 


f SCAPE 


SFG 






iBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 


C$esCAPE 
10000$-. 


TST 


INTRECV 






t 0IO AN INTERRUPT OCCUR ? 




BN£ 


2?$ 






jBRANCH IF YES 




ERRHRD 


ERRNO.UONINT 


.PKTSSR 














TRAP 


CfhNHRD 










.WORD 


1003 










.WORD 


T10NINT 










.WORD 


PKTSSR 


MOV 


TSSRCR5) 


,R1 




jGET THE CONTENTS OF TSSR 




MOV 


0SSR.R2 






■EXPECTED CONTENTS OF TSSR 




BIT 


*OFL ,R1 






lIS OFF LINE BIT SET ? 




BEQ 


2M 






jBRANCH IF NOT OFF LINE 




BIS 


0OTL.R2 






iSET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 






lOOES EXPECTED MATCH RECEIVED ? 




BEQ 


30$ 






,OKAY IF MATCH 




ERRHRD 


ERRN0.T10NBA, 


PKTSSR 


jNBA NOT ZERO 












TRAP 


C$ERHRD 










.UORD 


1004 










.WORD 


T10NBA 










.WORD 


PKTSSR 



ENDSFG 



BGNSEG 



x<< <<<<<<<< <<< END SEGMENT <<<<<*<<<<<<< 

10000$: 

TRAP ClESfcC 
j>*>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>* 

TRAP CIBSEG 



CLR 


INTRECV 


MOV 


♦025252 .T10BFR 


MOV 


• 100212. (R4) 


MOV 


R4,TSDB(R5) 


JSR 


PC, CHKTSSR 


BCS 


45$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T1OSSR, PKTSSR 



jCLEAR INTERRUPT REVIVED FLAG 
jWIPE OUT MESSAGE BUFFER AREA 
I SET COMMANO PACKET TO MESS BUF 
j SET THE PACKET ADDRESS 
jUAIT FOR SSR TO SET 
iBR IF CARRY SET (GOOO RETURNS 
iSAVE CONTENTS OF TSSR 
lUEVICE FATAL SSR FAILED TO St T 

TRAP 



REL 



FATFLG 



INC 
CKLOOP 

(ST 
BEQ 
ERRHRD ERRNO, T 10INT .PKTS5R 



|SFT FATAL ERROR FLAG 
lLOOP ON ERROR. IF FLAG 



INTRECV 
52$ 



jDID AN 
jBRANCH 



INTERRUPT 
IF NO 



OCCUR 



.WORD 
.WORD 
.WORD 

SET 

1RAP 
? 



MOV 


TSSR(R5),Ri 


MOV 


0SSR.R2 


B!1 


«0R ,R1 


BEQ 


55$ 


UI& 


oOHiRii 



TRAP 
.WORD 
.WORD 
.WORD 
iGET THE CONTENTS OF TSSR 
{EXPECTED CONTENTS OF TSSR 
lIS OFF-LINE BIT SET ? 
i BRANCH P NOT OFF LINE 
liitT QFK-L1NE IN UPtCTtO DATA 



C$ERDF 

1005 

T10SSR 

PKTSSR 



CJCLP1 



C$ERHRD 

1006 
T10INT 

PKlStiR 



Gib 
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2596 
2597 



2602 
2603 
2604 
2605 
2606 
2610 



2611 
2612 
2613 
2614 
2615 



2616 
2617 



2618 



040736 
040740 
040742 
040742 
040744 
040746 
040750 
040752 
040752 
040756 
040762 
040764 
040766 
040766 
040770 
040772 
040774 
040776 
040770 
041002 
041004 
041010 
041010 
041010 
041012 
041012 
041012 
041012 



020201 
001404 

104456 
001757 
043013 
012036 

013701 042552 
012702 025252 
020102 
001404 

104456 
001760 
04263»\ 
015464 

005737 002220 

001403 

004737 017172 



104405 



55$: 



CMP R2.R1 

BEO 60t 

ERRHRD ERRNO, T10NNBA.PKTSSR 



60$ 



mov tiobfr.ri 

MOV $025252, R2 

CMP R1»R? 

BEQ 70$ 

ERRHRD ERRNO, TlOMBF.EXPREC 



70$ 



80>: 



TST FATFLG 

BEQ 80$ 

JSR PC.CKOROP 

ENOSEG 



ENOSUB 



5EQ 0188 



iDOES fcXPECTED MATCH RECEIVED ? 



{OKAY IF MATCH 






jNBA SET 








TRAP 


CtERHRD 




.WORD 


1007 




.WORD 


T10NN8A 




.WORD 


PKTSSR 



jPlCK UP THE 1ST WORD Of MESSAGE BUFFER 

jSET UP EXPECTED DATA 

jWAS ANY MESSAGE REC'D 

j BR. IF OK C EQUAL) 

iMESSAGE BUFFER WAS MODIFIED 

TRAP C$ERHRD 
•WORD 1008 
.WORD riOMBF 
.WORD EXPREC 



l ANY FATAL ERRORS 
jBR, IF NO FATAL ERRORS 
I TRY TO DRO^ THE UNIT 
,<<<<<<<<<<<<< END SEGMENT 

100011: 

TRAP 



<<<<<<<<<<<<< 



c$eseg 



104403 



l//////////// END SUBTEST //////////// 

LlOO/bj 

TRAP C$ESUU 



TSV5A - HARDWARE TESTS MACRO M12O0 23-MAR-84 09j44 PAGE 106 
TEST 10: BASIC PACKfcT PROTOCOL 



H1L) 



SEQ 0189 



2620 








2621 








2622 








2623 








2b24 








2625 








2626 








;>'»2 i 








2628 








2629 


041014 
041014 








041014 


104402 




2630 








2631 


041016 


00475 7 


043366 


2632 


041022 








041022 


012700 


000000 




041026 


104441 




2633 


041030 


012704 


042530 


2634 


041034 


012764 


000010 000006 


2635 


041042 






2636 


041042 








041042 


104404 




263/ 








2633 


041044 


004757 


015764 


2639 


041050 


103405 




2643 


041052 


010001 




2644 


041054 








041054 


104455 






041056 


001761 






041060 


003646 






041062 


012024 




2645 


041064 


0050 57 


002220 


2646 


041070 


005037 


002222 


264 7 


041074 


012737 


000020 042546 


2648 


041102 


010465 


000000 


2649 


041106 


0O4737 


016326 


2650 


041112 


103407 




2651 


041114 


010001 




2655 


041U6 








041U6 


104455 






041120 


001762 






041122 


CK3070 






041124 


012036 




2656 


04H26 


005237 


002220 


2657 


041132 








041132 


104406 




2658 


04113-1 








041154 


104410 






041136 


000056 




2659 


041140 


005737 


002222 


2660 


041144 


001004 




2664 


041146 








04U46 


104456 






011150 


001765 






041152 


043157 






041154 


012056 




2665 


041156 


016501 


000002 



I ♦ 

I TEST 10 

l CHECKS 
{PROPERL 
(BIT IS 
iIS SET 

i 
i - 



SUBTEST 2 

THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 
Y AND THAT THERE IS AN INTERRUPT IF THE "IE" 
SET IN THE COMMAND PACKET AND THE "ERI" BIT 
IN THE CHARACTERISTICS DATA PACKET 



BGNSUB 



JSR PC.UORST 

SETPRI 0PRIOO 



5$: 



MOV 
MOV 

BGNSEG 



JSR 
BCS 
MOV 
ERRDF 



10$: 



151: 



OT10PACKET.R4 
08..PKBCNTCR4) 



PC.S0F1NIT 

101 

R0.R1 

ERRNO.SFIERR.SFIMSG 



CLR 


FATrLG 


CLR 


INTRECV 


MOV 


♦OOO020,T10DATA*6 


NOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T10SSR, PKTSSR 



INC F'ATUG 

CKIOOP 

ESCAPE SET, 



TST INTRECV 

BNC 221 

ERRMRD ERRNO.UONINT, PKTSSR 



{//////////// BEGIN SUBTEST //////////// 

T10.2: 

TRAP C*BSUB 

,SET PACKET TO INITIAL VALUES 
iLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,R0 

TRAP OSPRI 

jGET THE ADDRESS OF COMMAND PACKET 
{START UITH MINIMUM ALLOWABLE VALUE 



j>>>>>>>>>>>> 



BEGIN SEGMENT >>>>>>>>>>> 
TRAP CJBSEG 



I DO SOFT INI; OF CONTROLLER 

jBR IE SOFT INIT * OK 

iSAVF CONTENTS OF TSSR 

IDEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

{CLEAR FATAL ERROR FLAG 

{CLEAR INTERRUPT RECEIVED FLAG 

jSET ERI IN CHARACTERISTICS DATA 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

jBR IF CARRY SET (GOOO RETURN) 

;SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

{SET FATAL ERROR FLAG 

{LOOP ON ERROR, IF FLAG SET 

TRAP 

jBY PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 
OCCUR ? 



CIERDF 
1009 
SFIERR 
SFIMSG 



CIERDF 

1010 

T10SSR 

PKTSSR 



{DID AN 
{BRANCH 



INTFRRUPT 
IF YES 



221: 



MOV 



TS5R(Nb),Rl 



jGET THE CONTENTS OF 



TRAP 
.WORD 
.WORD 
.WORD 
TSSR 



rtcLPi 

CiE SCAPE 
10000$-. 



CURHRO 

1011 

T10NINT 

PKTSSR 
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115 



SEQ 0190 



2666 
2667 
2663 
2669 
2670 
2671 
2675 



2676 
2677 



2678 

2680 
2661 
2682 
2683 
2684 
2685 
2686 
2690 



2691 
2692 

2695 
269* 
2698 



2699 

2 700 
2/01 
2702 
2705 
2704 
2705 
2709 



2 710 
2/11 
?/12 
2715 
«V14 



041162 
041166 
041172 
041174 
041200 
041202 
041204 
041204 
041206 
041210 
041212 
041214 
041214 
041214 
041214 
041216 
041216 

041220 
041224 
041232 
041236 
041242 
041246 
041250 
041252 
041252 
041254 
041256 
041260 
041262 
041266 
041266 
0412/0 
041274 
041276 
041276 
041300 
041302 
041304 
041306 
041312 
041316 
041322 
041324 
041330 
041332 
041334 
041334 
041336 
041340 
041342 
041544 
041344 
041550 
041354 

041356 



012702 
052701 
001402 
052702 
020201 
001404 

104456 
001764 
042/31 
012036 



104405 

104404 

005037 
012737 
012714 
010465 
004737 
103407 
010O01 

104455 
001765 
043070 
012036 
005237 

104406 
005737 
001004 

104456 
001766 
043250 
012036 
016501 
012702 
052701 
001402 
052702 
020201 
001404 

104456 
OOi767 
04 3013 
012036 

013701 
012702 
020102 
001404 



000200 
000100 

000100 



25$} 



30$i 



HOV 


0SSR.R2 




i EXPECTED CONTENTS OK TSSR 




BIT 


00FL.R1 




,IS OFF-LINE BIT SET ? 




BEQ 


25$ 




, BRANCH IF NOT OFF-LINE 




BIS 


00FL.R2 




1 SET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 




jDOES EXPECTED MATCH RECEIVED ? 




BEQ 


30$ 




tOKAY IF MATCH 




ERRHRD 


ERRNO.TIONOA, 


, PKTSSR 


j NBA NOT ZERO 

TRAP 
.WORD 
.UORD 
.WORD 


C$ERHRD 
1012 
TIONBA 
PKTSSR 



ENDSEG 



BGNSEG 



002222 
025252 
100212 
OCOOOO 
016326 



042552 



CLR 


INTRECV 


MOV 


0025252, T10BFR 


MOV 


0100212, CR4) 


MOV 


R4,TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


45$ 


MOV 


R0.R1 


ERADF 


ERRNO.TlOSSR. PKTSSR 



002220 
002222 



45*; 



0O0OO2 
000200 
000100 

000100 



52$} 



55$} 



INC FATFLG 
CKLOOP 

TST TNTRECV 

BNE 52$ 

ERRHRO ERRNO, T 10INT , PKTSSR 



MOV TSSR(R5),R1 

MOV 0SSR.R2 

BIT 00FL.R1 

BEQ 55$ 

BIS OOFL ,R2 

CMP R2.R1 

BEQ 60$ 

ERRHRD ERRNO, T10NNBA, PKTSSR 



042552 
025252 



60* J 



MOV 


T10BFR.R1 


MOV 


0025252, R£ 


CMP 


R1.R2 


BEQ 


70$ 



!<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<* 

10000$: 

TRAP C$ESEG 
j>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 



i CLEAR INTERRUPT RECEIVED FLAG 
jWIPE OUT MESSAGE BUFFER AREA 
,SET COMMAND PACKET TO MESS BUF 
,SET THE PACKET ADDRESS 
lUAIT FOR SSR TO SET 
jBR IF CARRY SET (GOOD RETURN) 
jSAVE CONTENTS OF TSSR 
iDEVICfc FATAL SSR FAILED TO SET 

TRAP 



REL 



;SET FATAL ERROR FLAG 
jtOOP ON ERROR, IF FLAG 



jDID AN 
j BRANCH 



INTERRUPT 
IF YES 



OCCIW 



.WORD 

• WORD 

♦ UORD 

SET 

TRAP 
? 



TRAP 
.WORD 
.WORD 
■ WORD 
}GET THE CONTENTS OF I SSR 
iEXPECTED CONTENTS OF TSSR 
i IS OFF-LINE BIT SET ? 
, BRANCH IF NOT OFF-LINE 
iSET OFF-LINE IN EXPECTED DATA 



C$ERDF 
1013 
T10SSR 
PKTSSR 



C$CLP1 



C$ERHRD 
1014 
T10INT 
PKTSSR 



jDOES EXPECTED 
jOKAY IF MATCH 
,NBA NOT SET 



MATCH RECEIVED ? 



TRAP 
.WORD 
.WORD 
.WCRD 



C$ERHRD 

1015 

TiONNBA 

PKTSSR 



I PICK UP THE 1ST WORD OF MfcSSAGL UUFF&R 
j SET UP EXPECTED DATA 
jWAS ANY MESSAGE RfcC'D 
l BR, If OK C EQUAL) 
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1716 



2719 

2720 
2721 
2722 
2723 
,-724 
2725 



2726 



041560 
041360 
041362 
041364 
041366 

041370 
041370 
041374 
0413 /fo 
041402 
041402 
041402 
0*1402 
041404 
041404 
041404 



104456 
001770 
042634 
015464 



005737 
001402 
004 737 



104405 



104403 



002220 
0171/2 



70$: 



80$: 



ERRHRD ERRNO.UOMBF.EXPREC 



TST FATFLG 

BEQ 80» 

JSR PC.CKDROP 

ENUSEG 



ENDSUB 



jMESSAGE BUFFER WAS MODIFIED 

TRAP ClEflHRD 

.WORD 1016 

.WORD T10MBF 

.WORD EXPREC 



j ANY FATAL ERRORS 

)BR, IF NO FATAL ERRORS 

1 THY TO DROP THE UNIT 

,<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10001* : 

TRAP CJESEG 
I //////////// END SUBTEST //////////// 

L10077: 

TRAP C*ESUB 



SEQ 0191 



K15 



j 
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SEQ 0192 



2728 








2729 








2730 








2751 








2732 








2/33 








2734 








2735 








27^6 


041406 
041406 








041406 


104402 




2737 








2738 


041410 


004737 


04 3366 


2739 


041414 








041414 


032700 


000000 




041420 


104441 




2740 


041422 


012/04 


042530 


2741 


041426 


012764 


000010 000006 


2742 


041434 






2743 


041434 








041434 


104404 




2744 








2745 


041436 


004 737 


015764 


2746 


041442 


103405 




2750 


041444 


010001 




2751 


0*il446 








041446 


104455 






041450 


001771 






041452 


003646 






041454 


012024 




2752 


041456 


005037 


002220 


2753 


041462 


005037 


002222 


2 754 


041466 


010465 


000000 


2755 


041472 


004737 


016326 


2 756 


041476 


103407 




2757 


041500 


010001 




2761 


041502 








041502 


104455 






041504 


001772 






041506 


043070 






041510 


012036 




2762 


041512 


005237 


002220 


2763 


041516 








041516 


104406 




2764 


041520 








041520 


104410 






041522 


000056 




2 765 


041524 


005737 


002222 


2766 


0415^0 


001004 




2770 


041532 








041532 


104456 






041534 


001773 






041536 


043157 






041540 


012036 




2/71 


041542 


016501 


000002 


^nj 


041546 


012702 


000200 


2773 


041552 


032701 


000100 



j TEST 10 SUBTEST 3 

{CHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER 
i AFTER THE MESSAGE BUFFER RELEASE, AND THAT FOLLOWING COMMANDS 
i WORK CORRECTLY 



1 - 



5$; 



BGNSU8 



JSR 
SETPRI 



MOV 
MOV 

BGNSEG 



10$: 



15$ 



PC.T10RST 

OPRIOO 



0T10PACKET.R4 
08. ,PKBCNT(R4) 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIERR,SFIMSG 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4,TS0B(R5) 


JSR 


PC.CHKTSSR 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRNO,T10SSR, PKTSSR 



22$; 



INC FATFLG 
CKLOOP 

ESCAPE SEG 



1SI INTRECV 

HNE 22$ 

F.RRHRO ERRNO ♦ T 10NINT , PKTSSR 



MOV TSSR(R5)»R1 
MOV 0SSR,rt2 
BIT OOFL.Rl 



]//////////// BEGIN SUBTEST //////////// 

T10.3: 

TRAP CJBSUB 

jSET PACKET TO INITIAL VALUES 
{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,RO 
TRAP C$SPRI 
jGET THE ADDRESS OF COMMAND PACKET 
j START WITH MINIMUM ALLOWABLE VALUE 



}>>>>>>>>>>>> BEGIN 



SEGMENT >>>>>>>>*►>> :» 

TRAP C$BSEG 



i DO SOFT INIT OF CONTROLLER 

tBR IF SOFT INIT • OK 

I SAVE CONTENTS OF TSSR 

, DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

{CLEAR FATAL ERROP FLAG 

{CLEAR INTERRUPT RECEIVED FLAG 

,SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

tBR IF CARRY SET (GOOD RETURN) 

,SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP 



C$ERDF 
1017 
SFIERR 
SFIMSG 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



.WORD 
.UORD 
.WORD 



{BY-PASS SUBTEST IF 



{DID AN 
{BRANCH 



INTERRUPT 
IF YES 



SET 
TRAP 
FATAL ERROR 
TRAV 
.WORD 
OCCUR ? 



TRAP 
.WORD 
.WORD 
.WORD 

TSSR 



jGt T THE CONTENTS OF 
{EXPECTED CONTENTS OK TSSR 
tIS OFFLINE BIT SET ? 



C$ERDF 
1018 
T10SSR 
PKTSSR 



C$CLP1 

C$ESCAPE 
10000$-. 



C$ERHRD 
1019 
riONINT 
PKTSSR 



L15 
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25$5 



SEQ 0193 



2774 


041556 


001402 




2775 


041560 


052702 


000100 


2776 


041_>64 


020201 




2777 


041566 


001404 




2781 


041570 








041570 


104456 






041572 


001774 






041574 


042731 






041576 


012036 




278? 


041600 






2783 


041600 
041600 








041600 


104405 




2784 


041602 








041602 


104404 




2785 


041604 


004 737 


043366 


2786 


041610 


005037 


002222 


2787 


041614 


012737 


025252 


2788 


041622 


012714 


100212 


2789 


041626 


010465 


000000 


2790 


041632 


004737 


016326 


2791 


041636 


103407 




2792 


041640 


010001 




2796 


041642 








041642 


104455 






041644 


001775 






041646 


043070 






041650 


012036 




2797 


041652 


005237 


002220 


2798 


041656 








041656 


104406 




2/99 


041660 


005737 


00222JJ 


2800 


041664 


001404 




2804 


041666 








041666 


104456 






041670 


001776 






041672 


043250 






041674 


012036 




2805 


041676 


016501 


000002 


2806 


041702 


012702 


000200 


2807 


041706 


032701 


000100 


2808 


041712 


001402 




2809 


041 714 


052702 


000100 


2810 


041720 


020201 




2811 


041722 


001404 




2315 


041724 








041 724 


104456 






041726 


001777 






041 730 


04 3013 






0*1732 


012036 




2816 


041734 






2817 


041734 


013701 


042552 


2818 


041740 


012702 


025252 


2819 


041744 


020102 




2820 


04174b 


001404 




2'024 


041 >50 








041750 


104456 





BEQ 


25$ 


BIS 


00FL.R2 


CMP 


R2.R1 


BEQ 


30$ 


ERRHRD 


ERRN0.T10NBA, PKTSSR 



30$; 



ENDSEG 



BGNSEG 



042552 



JSR 


PC.UORST 


CLR 


INTRECV 


MOV 


0025252. T10BFR 


MOV 


0100212. (R4) 


MOV 


R4.TS0BCR5) 


JSR 


PC.CHKTSSR 


BCS 


45$ 


MOV 


R;\R1 


ERRDF 


LRRN0,T10SSR, PKTSSR 



43* : 



52$; 



55$} 



60? i 



{BRANCH IF NOT OFF-LINE 

jSET OFF-LINE IN EXPECTED DATA 

{DOES EXPECTED MATCH RECEIVED ? 

jOKAY IF MATCH 

j NBA NOT ZERO 

TRAP CtF.RHRD 
.WORD 1020 
.WORD T10NBA 
•WORD PKTSSR 

}<<<<<:<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$ ; 

TRAP C$E5EG 

{>>>>>>>>>>>> BEGIN SEGM T >>>>>>>>>>>> 

T n C$BSEG 

{RESET PACKETS AND COMMAND^ 
iCLEAR INTERRUPT RECEIVED FLAG 
;WIPE OUT MESSAGE BUFFER AREA 
{SET COMMAND PACKET TO MESS BlF REL 
j SET THE PACKET ADDRESS 
I WAIT FOR SSR TO SET 
iBR IF CARRY SET CGOOO RETURN) 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL SSR FAILED TO SET 









TRAP 


CIERDF 








.WORD 


1021 








.WORD 


T10S5R 








.WORD 


PKTSSR 


INC 


FATFLG 


{SET FATAL ERROR FLAG 






CKLOOP 




lLOOP ON ERROR , IF FLAG 


SET 
TRAP 


CSCLP1 


T$T 


INTRECV 


jOID AN INTERRUPT OCCUR 


? 




BE * 


52$ 


{BRANCH IF NO 






ERUMHO 


ERRNO, TIOINT, PKTSSR 




TRAM 
.WORD 
• WORD 
.WORD 


CSERHRD 
10?? 
TIOINT 
PKTSSR 



MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


BIT 


0CFL.R1 


BEQ 


55$ 


BIS 


00FL.R2 


CMP 


R?,R1 


BEQ 


60$ 


ERRHRD 


ERRN0.T10NNBA, PKTSSR 



;GET THE CONTENTS OF TSSR 
jEXPECTED CONTENTS OF TSSR 
{IS OFF -LINE BIT SET ? 
{BRANCH IF NOT OFF-LINE 
{SET OFF-LINE IN EXPECTED DATA 



{DOES EXPECTED 
{OKAY IF MATCH 
{NBA NOT SET 



MATCH RECEIVED ? 



TRAP 

. WORD 
.WORD 
.WORD 



C$ERHRD 

1025 

T10NNBA 

PKTSSR 



MOV 


T10BFR,R1 


MOV 


P0?5252.R2 


CMP 


R1.R2 


BEQ 


70$ 


ERRHRD 


ERRNO, T10MUF.EXPREC 



{PICK UP THE 1ST WORD OF MESSAGE BUFFER 

jSLT UP EXPECTED DATA 

,WAS ANY MESSAGE REC'D 

{BR, IF QK (EQUAL) 

{MESSAGE BUFFER WAS MODI' IEO 

TRAP CJtRHHU 



m.b 
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041752 


002000 






041754 


042634 






041756 


015464 




2825 








2826 


041760 








041760 


104406 




2827 








2828 


041762 


005037 


002222 


2829 


041766 


004 737 


043366 


2830 


041772 


042714 


100000 


2831 


041776 


010465 


000000 


2832 


042002 


004737 


016356 


2833 


042006 


103407 




2834 


042010 


010001 




2833 


042012 








042012 


104455 






042014 


002001 






042016 


043070 






042020 


012036 




2839 


042022 


005237 


002220 


2840 


042026 








042026 


104406 




2841 


042030 








042030 


104410 






042032 


000062 




2842 


042034 


005737 


002222 


2843 


042040 


001006 




284? 


042042 


016500 


000002 


2848 


042046 








042046 


104456 






042050 


002002 






042052 


043157 






042054 


012036 




2849 


042056 


016501 


000002 


2850 


042062 


012702 


000200 


2851 


042066 


032701 


000100 


2352 


042072 


001402 




2853 


0420 74 


052702 


000100 


2854 


042100 


02020V 




2855 


042102 


001404 




2859 


042104 








042104 


104456 






042106 


002003 






042110 


043070 






042112 


012036 




2860 


042114 






2861 


042114 

042114 








042114 


104405 




2862 


042116 


005757 


002220 


2863 


042122 


001403 




2864 


042124 


004737 


017172 


2865 








2866 


042150 








042130 


104404 




286 7 


042132 


005037 


002222 


2868 


042136 


004737 


043366 



70$ s 



75$: 



82$} 



85$: 



90$: 



CKLOOP 



CLR 


INTRECV 


JSR 


PC.T10RST 


BIC 


0100000, (R4) 


MOV 


R4 t TSDB(R5) 


JSR 


PC.CHKTSSR 


GCS 


75$ 


MOV 


R0,R1 


ERRDF 


ERRNU.T10SSR, PKTSSR 



INC 
CKLOOP 



FATFLG 



ESCAPE SEG 



1ST INTRECV 

BNE 82$ 

MOV TSSRCR5).R0 

ERRHRD ERRN0,T10NINT, PKTSSR 



MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


BIT 


O0FL.R1 


BEQ 


85$ 


BIS 


#0R-,R2 


CMP 


R2.R1 


BEQ 


90$ 


ERRHRD 


ERRNO.UOSSR, PKTSSR 



95$: 



ENDSEG 



TST 
BEQ 

JSR 

BGNSEG 

CLR 
JSR 



FATFLG 

95$ 

PC.CKDROP 



INIRFCV 
PC.T10RST 



SEQ 0194 



.WORD 1024 
.WORD T10MBF 
.WORD EXPREC 



j LOOP ON ERROR IF FLAG 



SET 
TRAP 



jCLEAR INTERRUPT RECEIVED FLAG 

, RESET THE PACKETS AND COMMANDS 

, CLEAR THE ACK BIT 

» SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

jBR IF CARRY SET CGOOD RETURN) 

I SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

{SET FATAL ERROR FLAG 

{LOOP ON ERROR, IF FLAG SET 

TRAP 

5 BY -PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 

{DID AN INTERRUPT OCCUR ? 

{BRANCH IF YES 

{GET TSSR FOR ERROR RF.PORT 

TRAP 
.WORD 
.WORD 
.WORD 
{GET THE CONTENTS OF TSSR 
{EXPECTED CONTENTS OF TSSR 
lIS OFF-LINE BIT SET ? 
{BRANCH IF NOT OFF-LINE 
{SET OFF -LIN'- IN EXPECTED DATA 
{DOES EXPEClcD MATCH RECEIVED ? 
jOKAY IF MATCH 
jNBA NOT ^ERO 

TRAP 
.WORD 
.WORD 
.WORD 



C5CLP1 



C$ERDF 
1025 
T10SSR 
PKTSSR 



C$CLP1 

CIESCAPb* 
10001$-. 



C$ERHRD 
1026 
T10NINT 
PKTSSR 



C$ERHRD 
1027 
T10SSR 
PKTSSR 



} *<<<<<<<<<<<< END SEGMENT <<<<<<<<<< <k< 

10001$; 

TRAP C$ESEG 
,ANY FATAL ERHORS 
j BR, IF NO FATAL ERRORS 
{TRY TO DROP THE UNIT 

i<<<<<<<<<<<<< BGN SEGMENT **<*<<****,*■* 

TRAP C$8SEb 
{CLEAR INTERRUPT RECEIVED FLAG 
{RESET THE PACKETS AND COMMANDS 



N15 
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2869 042142 


010465 


oooooo 


2870 042146 


004737 


016326 


2871 042152 


103407 




2872 042154 


010001 




2876 042156 






042156 


104455 




042160 


002004 




042162 


043070 




042164 


012J36 




287 7 042166 


005237 


002220 


2878 042172 






042172 


104406 




2879 042174 






042174 


104410 




042176 


000062 




2880 042200 


005737 


002222 


2881 042204 


001006 




2885 042206 


016500 


000002 


2886 042212 






042212 


104456 




042214 


002005 




042216 


043157 




042220 


012036 




2887 042222 


016501 


000002 


2888 042226 


012702 


000200 


2889 042232 


032701 


000100 


2890 042236 


001402 




2891 042240 


052702 


000100 


2892 042244 


020201 




2893 042246 


001405 




2897 042250 






042250 


104456 




042252 


002006 




042254 


043070 




042256 


012036 




2898 042260 






042260 






042260 


104405 




2899 042262 


00573 7 


002220 


2900 042266 


001402 




2901 042270 


004737 


01717* 


2902 042274 






2903 042274 






042274 






0422 74 


104403 




2904 0422/6 







100$: 



112$ 



125$ 



MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

BCS 100$ 

MOV R0.R1 

ERRDF ERRNO.UOSSR, PKTSSR 



INC FATFLG 

CKL.OOP 

ESCAPE 5EG 



TST 
BNE 
MOV 
ERRHRO 



MOV 
MOV 
BIT 
BEQ 
BIS 
CMP 
BEQ 
ERRHRD 



ENDSEG 



INTRECV 

112$ 

T5SR(R5).R0 

ERRN0.T10NINT, PKTSSR 



TSSR(R5),R1 

0SSR.R2 

00FL.R1 

125$ 

0OFL.R2 

R2.R1 

130$ 

ERRN0.T1OSSR, PKTSSR 



130$: 


T5T 


FATFLG 




BEQ 


140$ 




JSR 


PC.CKDROP 


140$: 







ENDSUB 



SEQ 0195 



j SET THE PACKET ADDRESS 

jWAIT FOR SSR TO SET 

jBR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

: DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 1028 
.WORD T10SSR 
.WORD PKTSSR 

{SET FATAL ERROR FLAG 

I LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

iB>-PA$S SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 

.WORD 10002$-. 

{DID AN INTERRUPT OCCUR ? 

{BRANCH IF YES 

jGET TSSR FOR ERROR REPORT 

TRAP C$ERHRD 

.WORD 1029 
.WORD TlONIN'f 
.WORD PKTSSR 

{GET THE CONTENTS OF TSSR 

{EXPECTED CONTENTS OF TSSR 

{IS OFF-LINE BIT SET ? 

{BRANCH IF NOT OFF LINE 

{SET OFF-LINE IN EXPECTED DATA 



{DOES EXPECTED 
{OKAY IF MATCH 
{NBA NOT ZERO 



MATCH RECEIVED ? 



c<<<<< <<<<<<< 



30$: 



TRAP C$ERHRD 
.WORD 1030 
.WORD T10S5R 
.WORD PKTSSR 
END SEGMENT <<<<<<<<<<<<< 
10002$: 

TRAP C$ESEG 

sCHECK FATAL FLAG FOR SET 

;UR, Ih NOT SET (OK) 

{DROP DEVICE U INDICATED 

]//////////// END SUBTEST /////////.'// 

L10100: 

TRAP C$ESUB 



I J I h 
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SEQ 0196 



,'90f. 






^w; 






c*90A 






2909 






2910 






2911 






^9K' 






2913 






2914 






291* 0422 76 






042276 






0422 76 


1C4402 




291b 






291 7 042300 


0O4737 


04 3440 


.'91ft 04^304 


004737 


04 5 366 


,'919 042310 






042310 


012700 


OOOOOO 


042314 


104441 




292C 042316 


012704 


042*50 


2921 042322 


012703 


042*72 


i»922 042526 


012764 


000010 000006 


2 »23 042334 


01276* 


000010 000006 


2924 042542 






&Ll 042542 






042542 


104404 




2926 042544 


004737 


01*764 


292 7 0425*0 


105405 




2931 0423*2 


010001 




2932 0423*4 






0423*4 


1044** 




0423*6 


002007 




042560 


005646 




042562 


012024 




2933 042564 


00*037 


002220 


2954 042570 


00*037 


002222 


293* 042374 


01046* 


OOOOOO 


.>936 042400 


010365 


OOOOOO 


293 7 042404 


0O4757 


016240 


2936 042410 


016*01 


000002 


2939 042414 


032701 


000200 


2940 042420 


001006 




2944 042422 






042422 


1044** 




042424 


002010 




042426 


04 3070 




0424 50 


012056 




294*, 0424 52 


00*2 3 1 


002220 


2946 0424 56 






0424 56 


104406 




294 7 042440 






042440 


104410 




042442 


0000*6 




29411 042444 


00*73/ 


QQMiiH 


,'94'rf 0424*0 
29*0 


Q01QQ4 




29',l 







» * 

I TF ST 



10 SUBTEST 4 



jCHtCKS THAT THE REGISTER MODIFICATION REFUSED (RMR) BIT IN 
I THE TSSR WILL BE SET IF A WRITE CHARACTERISTICS COMMAND 
» BEING EXECUTED AND ANOTHER "WC" COMMAND IS ATTEMPTED 



5$; 



BGNSl* 



JSR 
SETPRI 



MOV 
MOV 
MOV 
MOV 

BGNSEG 

JSR 
BCS 

MOV 
ERRDF 



PC.T10RT2 

PC.TIORST 
OPRIOO 



#T10PACKET,R4 
#U0PKT,R5 
O0.,PKBCNT(R4 ) 
*0,,PKBCNT(R3) 



PC.SOFINIT 

10) 

M0.R1 

ERRNO.bFIF.RR.SFIMSG 



10$: 



CLh 


FATFLG 


CLR 


INTRECV 


MOV 


R4,TSD8(R*) 


MOV 


R3.TSDBCRS) 


JSR 


PC.UAIH 


MOV 


TSSR(R">),R1 


BIT 


♦SSR.R1 


BNE 


1*1 


FRRDF 


ERHN0.T10SSP.PKTSSR 



15lj 



INC FATFIG 

CKl OOP 

! '.CAPE SEt. 



TSI 
HN* 



INTRECV 
221 



,//////////// BEGIN SlGTEST //////////// 

T10.4: 

TRAP CtBSUB 

iSET SECONO PACKET UP 

jSET PACKET TO INITIAL VALUES 

lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,R0 
TRAP CISPRI 
I GET THE ADDRESS OF COMMAND PACKET 
I GET THE ADDRESS OF 2ND CMO PACKET 
j START WITH MINIMUM ALLOWABLE VALUE 
I START WITH MINIMUM ALLOWABLE VALUE 



,>>>>>>>>>>>> BEGIN SEGMENT >>>> 

TRAP 

i DO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT • OK 

»SAVE CONTENTS UF TSSR 

j DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

» CLEAR FATAL ERROR FLAG 

iCLF.AR INTERRUPT RECEIVED FLAG 

I SET THE PACKET ADORESS 

i SECOND COMMANO PACKET 

,WAIT FOR SSR TO SET 

;GET CONTENTS OF TSSR REGISTER 

» CHECK FOR SSR (TSSR) SET 

I BR, IF SSR SET (GOOD) 

jDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

•SET FATAL ERROR FLAG 

I LOOP ON ERROR, IF FLAG SET 

TRAP 

jOr PASS SUBTEST IF FATAL ERROR 

TFAP 

. UQRD 
OCCUR ? 



C*BSEG 



CtERDF 
1031 
SFIERR 
SFIMSG 



iDID AN 
jURANCH 



INTERRUPT 

IF TES 



CIERDF 

1032 

T10SSR 

PKTSSR 



CICLP1 

OESCAPE 
10QQ0*-* 



ERRHKD EHRNCMlONINliHKTSSR 



C'K 
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042452 


104456 






0^2454 


002011 






042456 


043157 






042460 


012056 




2956 


04246? 


016501 


000002 


295/ 


^42466 


012702 


110200 


2958 


0424 72 


032/01 


000100 


2959 


042476 


001402 




2960 


042500 


052 702 


000100 


2961 


042504 


020201 




2962 


042506 


001404 




2966 


A42510 








042510 


104456 






042512 


002012 






042514 


04 30 70 






042516 


01207-6 




2967 


042520 






C' 4 


042520 
042520 








042520 


104405 




2969 


042522 
042522 








042522 


10440'. 




2970 


042524 








042524 


104432 






042526 


000764 





22$: 



251 j 



MOV TSSR(R5),R1 

MOV *SSR!RMR!SC,n2 

BIT *0M ,R1 

BFQ 25$ 

BIS #0FL,R2 

CMP R2.R1 

BtQ SO* 

£ RRHRD E.RRNO , T tOSSR , PKTSSR 



TRAP 
.WORD 
. WORD 
.WORD 
iGET THE CONTENTS OF TSSR 
lEXPECTED CONTENTS OF TSSR 
I IS OFF-LINE BIT SET ? 
I BRANCH IF NOT OFF-LINE 
»SET OFF-LINE IN EXPECTED DATA 



lOOFS EXPECTED 
lOKAf IF MATCH 
I NBA NOT ZERO 



30$ % 



MATCH RECEIVED ? 



TRAP 
.WORD 
.WORD 
. WORD 



CtERHRD 
1033 
T10NINT 
PKTSSR 



CIERHRD 
1034 
T10SSR 
PKTSSR 



END5EG 

ENDSUB 
LXIT Tiil 



l<<<< <<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 
\//////////// END SUBTEST //////////// 

L10X01: 

TRAP C$ESUB 

{ALL DONE WITH THIS TEST 

TRAP C$EXIT 

.UQRQ L1Q075-. 



SEQ 0197 



Ulb 
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2972 
^M 
29 74 
29 75 
29 79 

2980 

2981 

2982 
298 5 
2984 
2985 
2986 

298 r 
2988 
2989 
2990 
299! 
2992 
2995 
2994 
2995 
2990 

299 7 
2998 
2999 
,5000 
7001 
3002 
3005 
3004 

300 5 
3006 
300 7 
5008 
3009 
3010 
3011 
3012 
3015 
3014 
3015 
3C16 
3017 
3018 
3019 
3020 
30c>l 
3022 
302 5 
3024 



042530 
042550 
042532 
042554 
042536 

042510 
042540 
042542 
042544 
042546 

042552 



042572 
042572 
042574 
042576 
042600 

042602 
042602 
042604 
042606 
042610 

042614 



042654 
042 Ml 
04 5015 
04 5070 
045157 
04 3250 
043337 



10O204 
042540 
OOOOOO 
0000 10 



042552 

OOOOOO 
00OO16 
OOOOOO OOOOOO 



100204 
•^42602 
OOO^OC 
OOOOIO 



042614 
OOOOOO 
0OO016 
OOOOOO OOOOOO 



115 
lift 
116 
105 
105 
l^S 
102 



145 

102 
102 
15 7 
170 
1V> 
141 



165 
101 
101 
156 
160 
145 
163 



il.OCAl. STORAGE FOR THIS TEST 

I 

T10PAPKF.T: 

.WORD 100204 

.WORD T10DATA 

.WORD 

. WORD 8 . 

TlOOATAs 

.WORD UWR 

. WORD 

,Wl)RD 14. 

. WORD , 

TIOBFR. ,BU<W fl. 



i * 

I 1E5T DATA FOR SUBTEST FOUR 



TlOPKTj 



.WORD 100204 

.WORD T100TA 

.WORD 

.WORD 8. 



TlOOTAs 



.WORD T10BUFR 

.WORD 

. WORD 1 4 . 

. WORO , 

UOBUF'R: .BLKW 8. 

ilUCAL TEXT MESSAGES FOR TEST 
I - 



SEQ 0198 



j COMMAND PACKCT FOR TEST 

I WRITE CHAR COMMAND, WITH IE, ACK 

l ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 

jCHARACTERISTICS DATA BLOCK 
i ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 



jMESSAGE BUFFER 



jCOMMANO PACKET FOR TEST 

I WRITE CHAR COMMANO, WITH IE, ACK 

I ADDRESS OF CHARACTERISTICS BLOCK 

1 STARTING VALUE OF BLOCK SIZE 

jCHARACTERISTICS DATA BLOCK 
i ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 



j MESSAGE BUFFER 



UOTOF ; 
TlONBAj 

T10NNBA 
T10SSR; 
T10N1NT 
TJ.01NT : 
TST10ID 



.ASCI/ 
.ASCI/ 
.ASCI/ 

.EVEN 



M«s«»9t Buffer Modified after MESSAGE BUFFER RELEASE Command' 

NBA tot CUar After WRITE CHARACTERISTICS Command' 

ASCI/ 'NBA Set After MESSAGE BUFFER RELEASE Command' 

Content* of TSSR Incorrect After WPITE CHARACTERISTICS' 

ASCI/ Expected Interrupt Not Received On WRITE CHARACTERS. C,^ 



'Unexpected Interrupt Received On 
.ASCI/ 'Booic Packet Protocol' 



WRITE CHARACTERISTICS' 



045366 
043366 
043372 
043376 
04 3402 
043406 
04 3410 
04 3414 

043420 
04 342? 
043426 
04 34 30 

043452 
043436 



T10RST 
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3026 

302/ 

2028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3C42 

304 3 

3044 

3045 

3046 

304 7 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 



hit 



J 



SEQ 0199 



ROUTINE TO RESTORE COMMAND PACKET TO START -UP (DEFAULT) VALUES 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
000207 



042530 
100204 
042540 

OOOOIO 
042552 

000016 
042552 



04 3440 
04 3440 
04 3444 
04 3450 
04 3454 
04 3460 
04 3462 
043466 
04 3472 
04 34 74 
04 3500 
04 3502 
04 3504 
043510 
043512 
043512 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
OO5011 
00503 7 
000207 



0425 72 
100204 
042602 

OOOOIO 
042614 

000016 



0426i4 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

C'-R 

NOV 

CLR 

CLR 

CIR 

RTS 



•T10PACKET.R1 

0100204, (Rl)» 

*T10DATA,(R1)> 

(Rl)* 

•8. ,(R1)* 

•TlOBFR.CRl)* 

(Rl)* 

• 14. ,(R1)* 

crh* 

(Rl) 

TIOBFR 

PC 



j SAVE THE REGISTERS 

j START OF THE PACKET 

jWRITE CHARACTERISTICS WITH ACK, IE 

j ADDRESS OF CHAR DATA BLOCK 

lEXTFNDEO ADDRESS 

jSIZE Of DATA BLOCK IN BYTES 

l ADDRESS OF MESSAGE BUFFER 

•LENGTH OF MESSAGE BUFFER 



iCLFAR 1ST 
{RETURN 



LOC IN MESSAGE BUFFER 



ROUTINE TO RESTORE COMMAND PACKET 02 TO START -U° (DEFAULT) VALUES 



UQRT3J 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

CI R 

CLR 

CLR 

RTS 

ENDT*>T 



•T10PKT,R1 

•100204, (Rl)* 

•T10DTA.(R1)# 

(Rl). 

08. ,(R1)* 

0T10BUFR,(R1)* 

(Rl)» 

•14. .(Rl)* 

(Rl). 

(Rl ) 

T10BUFR 

PC 



iSAVE THE REGISTERS 

jSTART Of THE PACKET 

jWRITE CHARACTERISTICS WITH MCK. IE 

i ADDRESS Of CHAR DATA BLOCK 

jEXTENOED ADDRESS 

tSIZE Of DATA BLOCK IN BYTES 

» ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 



tCt MR LSI 
1 RE TURN 



LOC IN MESSAGE BUFFER 



10440X 



UQ075: 



TRAP 



CSETST 



16 
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SEQ O200 



30/0 

30/1 
30 -Y 
30/3 
30/4 

30/5 
30/6 
307/ 
30/8 
30 79 
3080 
3081 
3 OB? 

308? 
3088 
3089 
3090 
3091 



3092 

3093 



3094 
3095 
3099 
3100 



3101 
3102 
3103 
3104 
3108 



3109 
3110 
3111 
3W2 
3113 

3114 
3115 

3116 
3117 
3118 
3119 
31,70 
5X24 



043514 
043514 
043514 
043520 
04 3524 
04353? 
04 3532 
043532 
043532 

04 3534 
043534 
045540 
043542 
04 3546 
04 3550 
04 3552 
04*552 
043554 
04 3556 
04 3560 
04 3562 
043562 
04 3566 
04 3572 
04 35 74 
045574 
04 35 76 
04 5600 
04 3602 
04 5604 
04 3604 
04 5610 
04 56L4 
04 5614 
04 5614 

04 5616 
04 5622 
04 5626 
04 5632 
04 56 56 
04 5640 
04 364? 
04 3642 



104402 



012700 
104441 
004737 
105405 
01OO01 

104455 
002115 
003646 
012024 

012704 
004 73 7 
103404 

104456 
002116 
005052 
012024 

004737 
012704 



104404 

00503 7 
00503 7 
010465 
004 73 7 
103407 
010001 

104455 



.SBTTL TEST lis NON-TAPE MOTION COMMANDS 



i THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
iCOMMANO. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 
{THE COMMANO RUNS TO COMPLETION AND STORES A VALID 
{MESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO 
i VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT, 



012700 045512 
004 737 016500 
012737 000024 002214 



TULOOP: 



BUNTST 

MOV 
JSR 
MOV 

BGNSUB 



otstuid.ro 
pc.tstsetup 

020, .LOOPCNT 



SETPRI OPRIOO 



000000 
015764 



JSR 


PCSOFINIT 


BCS 


31 


MOV 


R0.R1 


errdf 


ERRNQ,SFIfcRR,SFIMSG 



044 740 
010652 



3$: 



MOV 0THPK2.R4 

JSR PC.WRTCHR 

BCS 4$ 

ERRHRD ERRNO , WRTMBG , SF IMSG 



045544 
044670 



002220 
00222? 
000000 
016326 



4$: 








JSR 


PC. TUHlST 




MOV 


M11PACKET,R4 


51: 


BGNSFCi 




101: 


Cl R 


FATrLG 




CIR 


INTRECV 




MOV 


R4.TS0BCR5) 




JSR 


PC.CHKTSSR 




BCS 


151 




MOV 


R0.R1 




ERRDF 


ERRNO, TllSSR.PI'.TSSR 



Til:: 

, ASCII MESSAGE TO IDENTIFY 
jDO INITIAL TEST SETUP 
jPERFORM 20 ITERATIONS 



TEST 



|//////////// BEGIN SUBTEST //////////// 

Tll.l: 

TRAP C5BSUB 

I LOWER PRIORITY TO ALLOW INTERRUPTS 



MOV 
TRAP 

jDO SOFT INIT OF CONTROLLER 

jBR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

{WRITE CHARACTERISTICS PACKE 1 
{ISSUE WRITE CHARACTERISTICS 
{BR, IF COMMAND ISSUED OK 
{WRITE CHARACTERISTIC 



OPRIOO.RO 
C$5PRI 



CJERDF 
1101 
SFIERR 
SFIMSG 



FAILED 




TRAP 


C$ERHRD 


.WORD 


1102 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



I St I UP PACKET FOR COMMAND 

jGET IHf. ADDRESS OF COMMAND PACKET 

,>>>>>>>>>,>> BEGIN SEGMENT >>>>>>•>>>>>> 

TRAP C$BSEG 

{CLEAR FATAL ER^OR FLAG 

I CLEAR INTERRUPT RECEIVED FLAG 

tSET THE PACKET ADDRESS 

jWAIT FOR SSR TO SET 

jBR IF CARRY SET (GOOD RETURN') 

jSAVt CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 



Gib 
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04 5644 


002117 






04 564£> 


045254 






045650 


012036 




3125 


04 5652 


005257 


002220 


3126 


04 5656 








04 5656 


104406 




3127 


04 5660 








043660 


104410 






04 3662 


0000 74 




5128 


04 5664 


005737 


002222 


.5129 


04 5670 


001004 




3133 


04 56 72 








04 5672 


104456 






04 5674 


002120 






04 56 76 


045564 






043/00 


012056 




3154 


045702 


016501 


000002 


3155 


045706 


012702 


000200 


3156 


045712 


052701 


000100 


3157 


045716 


001402 




3158 


043720 


052702 


oooioo 


3159 


045724 


020201 




3140 


043726 


001404 




3144 


043730 








04575C 


104456 






V+5/S2 


002121 






045754 


045002 






043756 


012056 




3145 


045740 






3146 


045740 


004757 


011104 


3147 


045744 


105405 




3151 


045746 








045746 


104456 






045/50 


002122 






04 5/52 


0O4 741 






045754 


015500 




3152 


04 5 756 
04 5 756 








043756 


104405 




3155 








3154 








3155 


045760 
045/60 








045760 


104405 




3156 








3157 


045/62 


00575/ 


002220 


3158 


045766 


001402 




3159 


045/70 


004 737 


0X7X72 


3X60 


043774 







15$ : 



22$ j 



25$} 



30*: 
55$: 



59$: 



INC 
CKl.OOP 



FATFLG 



ESCAPE SEG 



TST INTRECV 

BNf 22$ 

ERRHRD ERRNO.TllNINT, PKTSSR 



BCS 
ERRHRD 



ENOSEG 



ENDSUB 





SEQ 0201 


.WORD 


1103 


.UORD 


T11SSR 


.WORD 


PKTSSR 


,SET FATAL ERROR FLAG 




jLOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 


1 BY -PASS SUBTEST IF FATAL ERROR 




TRAP 


C$ESCAPE 


.WORD 


10000$-. 


jDID AN INTERRUPT OCCUR ? 




1 BRANCH IF YES 




TRAP 


C$ERHRD 


.WORD 


1104 


.UORD 


T11NINT 


.WORD 


PKTSSR 



MOV 


TSSRCR5J 


,R1 




»GET THE CONTENTS OF TSSR 




MOV 


0SSR.R2 






{EXPECTED CONTENTS OF TSSR 




BIT 


OO L , R 1 






jIS OFF-LINE BIT SET ? 




BEQ 


25$ 






,BRANCH IF NOT OFF -LIKE 




BIS 


♦0FL.R2 






;SET OFF-LINE IN EXPECTED DATA 




CMP 


P2.R1 






{DOES EXPECTED MATCH RECEIVED ? 




BEQ 


30$ 






jOKAf IF MATCH 




ERRHRD 


ERRN0.T11NBA, 


.PKTSSR 


{NBA NOT ZERO 












TRAP 


C$ERHRD 










.WORD 


1105 










.WORD 


T11NBA 










.WORD 


PKTSSR 



PC.CKRAM 

59$ 

ERRNO , PKTRAM , RAMERR 



{CHECK RAM TO MEMORY 
{RAM OK GO ON 
{THEY DON' T MATCH 



TRAP 

.WORD 

.WORD 

.WORD 



C$ERHRD 
1106 
PKTRAM 
RAMERR 



t < <<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 



i\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10103: 

TRAP C$ESUB 



60$ j 



TST 


K'UFIG 


BEQ 


r ..>$ 


JSR 


PC.CKDROP 



{ANY FATAL ERRORS ? 

{BRANCH IF NOT 

} TRY TO DROP THE UNIT 



1.6 
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SEQ 0202 



3162 








3163 








3164 








3165 








3166 








3167 








3168 








3169 








3170 








3171 


0437 74 

043774 








043774 


104402 




3172 








3173 


043776 








043776 


012700 


000000 




044002 


104441 




3174 


04400m 








044004 


104404 




3175 








3176 








3177 


044006 


0O4737 


015764 


3178 


044012 


103405 




3182 


044014 


10001 




3183 


044016 








044016 


104455 






044020 


002123 






0-14022 


003646 






044024 


012024 




3184 


044026 






3185 


044026 


012704 


044740 


3186 


044032 


0O4737 


010652 


3187 


044036 


103404 




3191 


044040 








044040 


104456 






044042 


0O2124 






044044 


005052 






044046 


012024 




3192 


044050 






3193 


044050 


0O4737 


045544 


3194 


044054 


012704 


044670 


3195 


044060 






3196 


044060 


005037 


002222 


3197 


044064 


052714 


00/400 


3198 


044070 


010465 


000000 


2199 


044074 


0O4737 


016326 


3200 


044100 


103405 




3201 


044102 


010001 




3205 


044104 








044104 


104455 






0A4106 


002125 






044110 


045234 






044U2 


012056 




3206 


044114 








044114 


104406 




3207 


044116 








044H6 


104410 






044120 


000074 





1 ♦ 

I 



j TEST 11, SUBTEST 2 

jCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
, INITIALIZE COMMAND TO BE REJECTED 



I ~ 



3$: 



4$: 



BGNSUB 

SETPRI OPRIOO 
BGNSEG 



JSR PC.SOKINIT 

BCS 3$ 

MOV R0.R1 

ERRQF ERRNO.SFIERR, SFIMSG 



,//////////// BEGIN SUBTEST //////////// 

Til. 2: 

TRAP CJRSUB 

j LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,RO 
TRAP CJSPRI 

,>>>>>:>>:»>:>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 



{00 SOFT INIT OE CONTROLLER 

{BR IE SOFT INIT - uK 

j SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP Ci.RDF 

.WORD 1107 
.WORD SFIERR 
.WORD SFIMSG 



MOV 


0TUPK2.R4 


{WRITE CHARACTERISTICS PACKET 




JSR 


PC.WRTCHR 


{ISSUE WRITE CHARACTERISTICS 




BCS 


4t 


{BR. IF COMMAND ISSUED OK 




ERRHRD 


ERRNO.WRTMSG, SFIMSG 


{WRITE CHARACTERISTIC FAILED 








TRAP 


C*ERHRD 






.WORD 


1108 






.WORD 


WRTMSG 






.WORD 


SFIMSG 





JSR 


PC.U1REST 




MOV 


*TUPACKET,R4 


5»: 






10*5 


CLR 


INTRECV 




BIS 


OP. MODE, CR4) 




MOV 


R4.TSDBCR5) 




JSR 


PCCHKTSSR 




BC^ 


15$ 




MOV 


R0.R1 




ERRDF 


ERRN0,T11SSR,PKTSSR 



151 J CKl OOP 

ESCAPE SEG 



{SET UP PACKET FOR COMMANO 

{GET THE ADDRESS OF COMMAND PACKET 

{DEAR INTERRUPT RECEIVED FLAG 

iNON ZERO COMMANO MODE BITS 

{SET THE JACKET AODRESS 

{WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS Of TSSR 

{DEVICE FATAL SSR FAILED TO SET 



{I OOP UN ERROR, IF 



i B^ASS CHECKS 1^ 



TRAP 


CIERDF 


.WORD 


1109 


.WORD 


T11SSR 


.WORD 


PKTSSR 


FLAG SET 




TRAP 


CSCLP1 


KAIAL ERROR 




TRAP 


CJESCAPE 


.WORD 


10000*-. 



II G 
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3208 
3209 
3213 



3214 
3215 
3216 
3217 
3218 
*219 
3220 
i224 



3225 
3226 
3227 
3231 



3232 



3233 
3234 



044122 
044126 
044130 
044130 
044132 
044134 
044136 
044140 
044144 
044150 
044154 
044156 
044162 
044164 
044166 
044166 
044170 
044172 
044174 
044176 
044176 
044202 
044204 
044204 
044206 
044210 
044212 
044214 
044214 
044214 

044216 
044216 
044216 



005737 
001004 

104456 

002126 
045364 
012036 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
002127 
045042 
012036 

004737 
3 01405 

104456 

002130 
004741 
015500 



104405 



104403 



002222 



000002 
100206 

000100 

000100 



225; 



25$; 



0U104 



30J: 
35$: 



59*: 



TST INTRF.CV 

BNE 22 1 

F.RRHRD ERRN0.T11N1NT, PKTSSR 



MOV 


T3SR(R5),R1 


MOV 


0SCISSR!TSRE.J,R2 


BIT 


C0FL.R1 


BEQ 


25$ 


BIS 


0OFL.R2 


CMP 


R2.R1 


BF.Q 


30$ 


ERRHRD 


ERRN0.T112REJ.PKTSSR 



JSR PC.CKRAM 
BCS 59$ 
ERRHRD ERRNO , PKTRAM , RAMERR 



ENDSEG 



ENDSUB 



SEQ 0203 



{DID AN INTERRUPT OCCUR ? 
jBRANCH IF YES 

TRAP C$ERHRD 
.WORD 1110 
.WORD T11NINT 
.WORD PKTSSR 

iGET THE CONTENTS OF T5SR 

, EXPECTED CONTENTS OF TSSR 

»IS OFF-LINE BIT SET ? 

jBRANCH IF NOT OFF-LINE 

I SET OFF-LINE IN EXPECTED DATA 

jDOES EXPECTED MATCH RECEIVED ? 

lOKAY IF MATCH 

, COMMAND NOT REJECTED 

TRAP C$ERHRD 

.WORD 1111 
.WORD TU2REJ 
.WORD PKTSSR 

j CHECK RAM TO MEMORY 

jRAM OK GO ON 

j THEY DON 4 T MATCH 

TRAP C$ERHRD 

.WORD 1112 
.WORD PKTRAM 
. WORD RAMERR 

!<<<<<<<<<<<<< £No SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP CiESEG 

i\\\\\\\\\\\\\ END SlfcTEST \ s\\\\\\\\\\\ 

L 10104: 

TRAP CJtSUB 



J 16 
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SEQ 0204 



3 .736 
3237 
3238 
3239 

3240 

324 1 

324? 
3243 
3244 



3245 
3246 



3247 

3248 
3249 
3253 
3254 



3255 
3256 

325/ 
325B 
3262 



3263 
3264 
3265 
3266 
32V/ 
3268 
3269 
3270 
3271 
3275 



3276 
3277 



3278 
3279 
3283 



044220 
044220 
044220 

044222 
044222 
044226 
044230 
044230 
044232 
044236 
044240 
044242 
044242 
044244 
044246 
044250 
044252 
044252 
044256 
044262 
044264 
044264 
044266 
044270 
044272 
044274 
044274 
044300 
O44304 
044304 
044 310 
044314 
044320 
044 322 
044324 
044 324 
044326 
044330 
044332 
044334 
044334 
044336 
044336 
044340 
044342 
044 346 
044350 
044350 



104402 



012 700 
104441 

1C-.404 
004737 
103405 
010001 

104455 
002131 
003646 
012024 

012704 
004737 
103404 

104456 
002132 
005052 
012024 

004 737 
012704 

005037 

010465 
004737 
103405 
010001 

104455 
002133 
045310 
012036 

104406 

104410 
000074 
005737 
001004 

104456 



i TEST 11, SUBTEST 3 
CHECK THAT THE GET STATUS COMMAND IS ACCEPTED 



000000 



015764 



BGNSU8 



SETPRI OPRIOO 



BGNSEG 



3$: 



044 740 
010652 



045544 
044670 

002222 
000000 
016326 



4$; 



51: 
10$: 



15* t 



,//////////// BEGIN SUBTEST //////////// 

Til. 3: 

TRAP OBSUB 

jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV 4PRIO0.RO 
TRAP CJSPRI 

,>>>>>>>>>>>* BEGIN SEGMENT >>>>>>>>>>>> 

C$BSEG 







TRAP 


JSR 


PC.SOFINIT 


{DO SOFT INIT OF CONTROLLER 


BCS 


3$ 


}BR IF SOFT INIT - OK 


MOV 


R0.R1 


;SAVF CONTENTS OF TSSR 


ERRDF 


ERRNO, SFIERR, SFIMSG 


{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 


MOV 


0T11PK2.R4 


, WRITE CHARACTERISTICS PACKET 


JSR 


PC.WRTCHR 


{ISSUE WRITE CHARACTERISTICS 


BCS 


4$ 


j BR, IF COMMANO ISSUED OK 


ERRHRD 


ERRNO, WRTMSG, SFIMSG 


{WRITE CHARACTERISTIC FAILED 



C$ERDF 
1113 
SFIERR 
SFIMSG 


CJERHRD 

1114 

WRTMSG 

SFIMSG 



002222 



JSR PC.TUREST 

MOV 0T11PACKET.R4 

CLR INTRECV 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

BCS 151 

MOV R0.R1 

ERRDF ERRN0.T11SR2.PKTSSR 



CKl.OOP 
ESCAPE SL1 



1ST INTRECV 

BNE 22% 

ERRMRD ERRNCUININT.PKTSSR 



jjET UP PACKET FOR COMMAND 

{GET THE ADDRESS OF COMMAND PACKET 

{CLEAR INTERRUPT RECEIVED FLAG 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

;BR IF CMRRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



TRAP 


CJERUF 


.WORD 


1115 


.WORD 


TUSR2 


.WORD 


PKTSSR 


,LO0P ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 


{BY-PASS SUBTEST IF FATAL ERROR 




TRAP 


CJESCAPE 


.WORD 


10000$-. 


{DID AN INTERRUPT OCCUR ? 




{BRANCH IF tES 




TRAP 


CSERHRD 



K16 
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3284 
3285 
3286 
3267 
3288 
3289 
3290 
3£94 



3295 
3296 
3297 
3301 



3302 



3303 
3304 
3305 



044352 
044354 
044356 
044360 
044364 
044370 
044374 
044376 
044402 
044404 
044406 
044406 
044410 
044412 
044414 
044416 
044416 
044422 
044424 
044424 
044426 
044430 
0444 32 
0444 34 
0444 34 
044434 



044436 
044436 
044436 



002134 
045364 
012036 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
002135 
045123 
012036 

004737 
103405 

104456 
002136 
004741 
015500 



104405 



104403 



000002 
000200 
000100 

000100 



.WORD 
.WORO 
.WORD 



1116 

T11NINT 

PKTSSR 



2e$i 


MOV 


TSSRCR5; 


• Rl 


»GET THE CONTENT^ OF TSSR 






MOV 


0SSR.R2 




jEXPECTED CONTENTS OF TSSR 






BIT 


*0FL,R1 




j IS OFF-LINE BIT SET ? 






BEQ 


25$ 




{BRANCH IF NOT OFF-LINE 






BIS 


00FL.R2 




tSET OFF-LINE IN EXPECTED DATA 




25$: 


CMP 


R2.R1 




jOOES EXPECTED MATCH RECEIVED ? 






BEQ 


30$ 




1 OKAY IF MATCH 






ERRHRD 


ERRN0.T113REJ, PKTSSR 


j COMMAND NOT ACCEPTED 












TRAP 


CJERHRD 










.WORD 


1117 










.WORD 


T113REJ 










.WORD 


PKTSSR 



011104 



30$: 
35$: 



JSR PC.CKiiAM 

BCS 59$ 

ERRHRD ERRNO ♦ PKTRAM, RAMERR 



ENDSEG 



j CHECK RAM TO MEMORY 
j RAM OK GO ON 
;THEY DON'T MATCH 



TRAP 
.WORD 
.WORD 
.WORD 



CfERHRD 
1118 
PKTRAM 
RAMERR 



SEQ 0205 



59$: 



fcNDSUB 



l <<<<<<<<<<< << £ND SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 



;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10105: 

TRAP C$ESUB 



Lib 
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SEQ 0206 



3307 








3308 








330S 








3310 








3311 








3312 








3315 








3314 








3315 








3316 


044440 
044440 








044440 


104402 




3317 








3318 


044442 








044442 


012700 


000000 




044446 


104441 




3319 


044450 








044450 


104404 




3320 


044452 


004737 


015764 


3321 


044456 


103405 




3325 


044460 


010001 




3326 


044462 








044462 


104455 






044464 


002137 






044466 


003646 






044470 


012024 




3327 


044472 






3328 


0444 72 


012704 


044740 


3329 


044476 


004 737 


010652 


3o30 


044502 


103404 




3334 


044504 








044504 


104456 






044506 


002140 






044510 


005052 






044512 


012024 




3335 


044514 






3336 


044514 


004737 


045544 


3337 


044520 


012704 


044670 


3338 


044524 






3339 


044524 


005037 


002222 


3340 


044530 


052714 


007000 


3341 


044534 


010465 


000000 


3342 


044540 


004737 


016326 


3343 


044544 


103405 




3344 


044546 


01OO01 




3348 


044550 








044550 


104455 






044552 


002141 






044554 


045310 






044556 


012036 




3349 


044560 








044560 


104406 




3350 


C44562 








044562 


104410 






044564 


000076 




3351 


044566 


00573/ 


002222 


3352 


044572 


001004 





TEST 11. SUBTEST 4 

SUBTEST TO VERIFY THAT A GET STATUS COMMAND I<; 
REJECTED IF A NUN-ZERO COMMAND MODE FIELD IS USED 



3$: 



4$: 



15ii 



BGNSU8 



SE-'PUI OPR.TOO 



eGNSEG 



}//////////// BEGIN SUBTEST //////////// 

Til. 4: 

TRAP C$BSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 
TRAP C*SPR1 

>>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>'.>>>> 







TRAP 


C$BSEU 


JSR 


PC.SOFINIT 


jDO SOFT INIT OF CONTROLLER 




BCS 


3* 


jBR IF SOFT INIT » OK 




MOV 


R0,R1 


j SAVE CONTENTS OF TSSR 




ERRDF 


ERRN0.SF1ERR.SFIMSG 


{DEVICE FATAL ERROR DURING INIT 








TRAP 


C5ERDF 






.WORD 


1119 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


0TUPK2.R4 


{WRITE CHARACTERISTICS PACKET 




JSR 


PC.WRTCHR 


s ISSUE WRITE CHARACTERISTICS 




BCS 


4J 


jBR. IF COMMAND ISSUED OK 




ERRHRD 


ERRNQ.WRTMSb, SFIMSG 


{WRITE CHARACTERISTIC FAILED 





FAILED 




TRAP 


CJERHRD 


.WORD 


1120 


.WORD 


WRTMSG 


.WORD 


SFIMSG 





JSR 


PC.111REST 




MOV 


0T11PACKET.R4 


5>: 






10$! 


CLR 


INTRECV 




BIS 


0007000. CR4) 




MOV 


R4.TSDBCR5) 




JSR 


PCCHKTSSR 




BCS 


15* 




MOV 


R0.R1 




ERRDF 


ERRN0,T11SR2,PKTSSR 



{SET UP PACKET FOR COMMAND 

I GET THE ADDRESS OF COMMAND PACKET 

{CLEAR INTERRUPT RECEIVED FLAG 

;SET TO NON-ZERO MODE 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

{ BR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



CKLOOP 




ESCAPE 


SU8 


TST 
BNE 


INTRECV 
22$ 



TRAP 


C5ERDF 


.WORD 


1121 


.WORD 


T115R2 


.WORD 


PKTSSR 


{LOOP ON ERROR, IF FLAG SET 




TRAP 


CSCLP1 


iBY-PASS SUBTEST IF FATAL ERROR 




TRAP 


CJFSCAPE 


.WORD 


L10106-. 


tDID AN INTERRUPT OCCUR ? 




{BRANCH IF YES 





M16 
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3356 



3357 
3358 
3359 
3360 
3361 
3362 
3363 
3367 



3368 
3369 
3370 
3371 
3375 



3376 
3377 



3378 
3379 



044574 
044574 
044576 
044600 
044602 
044604 
044610 
044614 
044620 
044622 
044626 
044630 
044632 
044632 
044634 
044636 
044640 
044642 

044642 
044646 
044650 
044650 
044652 
044654 
044656 
044660 
044660 
04 4 060 
044660 
044662 
044662 
044662 



104456 

002142 

045364 

012036 

016501 000002 

012702 100206 

032701 000100 

001402 

052702 000100 

020201 

001404 

104456 
002143 
045153 
012036 



004737 011104 
103404 

104456 
002144 
004 741 
015500 



1 04405 
104403 



ERRHRD ERRNO , TllNINT ♦ PKTSSR 



22$: 



25$: 



MOV 


TSSR(R5) # R1 


MOV 


*SC!S5R'TSREJ # R2 


BIT 


00FL.R1 


BEQ 


25* 


BIS 


40FL.R2 


CMP 


R2.R1 


BEQ 


30* 



ERRHRD ERRNO t T114REJ , PKTSSR 



30$: 
35$: 



JSR PC.CKRAM 

BCS 59* 

ERRHRD ERRNO , PKTRAM, RAMERR 



59$: 



ENDSEG 



ENDSUB 



SEQ 0207 



TRAP 
.WORD 
. WORO 
.WORD 
tGET THE CONTENTS OF TSSR 
{EXPECTED CONTENTS OF TSSR 
lis OFF-LINE BIT SET ? 
, BRANCH IF NOT OFF-LINE 
iSET OFF-LINE T\N EXPECTED DATA 
{DOES EXPECTED MATCH RECEIVED ' 
lOKAY IF MATCH' 
; COMMAND NOT REJECTED 



C$,- 

112 

Till 

PKTS 



\T 



TRAP 


C$ERHRD 


.UORD 


1123 


.WORD 


TllAREo 


.WORD 


PKTSSR 



jCHECK RAM TO MEMORY 

{RAM OK 30 ON 

j THEY DON'T MATCH 

TRAP C$ERHRD 
.WORD 1124 
.WORD PKTRAM 
'JORD RAMERR 

;<<<<<<:<<<<<<< END SEGMENT <<<<<<<<<<< 

10000$: 

TRAP C$ESCG 

j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L101Q6: 

TRAP C$ESUB 



IV WTU V? 



CI 
Dl 
El 
>'l 
Gl 
HI 
II 
Jl 
Kl 
LI 
Ml 
Nl 



05 

D5 

E5 

F5 

G5 

H5 

x5 

,J5 

.l<5 

,L5 

Kb 

,N5 



B9 
C9 
D9 
E9 
F9 
G9 
H9 
19 
J9 
l<9 
L9 
M9 
N9 



B13 
C13 
013 
E13 
F13 
G13 
H13 
113 
J13 
K13 
L13 
M13 
N13 



B2 
C? 
02 
E2 
F? 
G? 
H2 
12 
J2 
K2 
LP 
M2 
N2 



B6 
C6 
06 
£6 
F6 
G6 
H6 
16 
J6 
l<6 
L6 
M6 
N6 



.010 

.CIO 

.010 

.F.10 

.F10 

.G10 

.H10 

.11' 

. J10 

.K10 

.L10 

.M10 

.N10 



B14 
C14 
014 
E14 
F14 
G14 
H14 
114 
J14 
K14 
L14 
M14 
N14 



B3 
C3 
03 
E3 
F3 
G3 
H3 
13 
J3 
K3 
L3 

r 3 

N3 



B7 

C/ 

or 

E7 
F7 
G7 
H7 
17 
J7 
K7 
I. 7 

,m; 

,N7 



.011 
.Cll 
.011 
.Ell 
.Fll 
.Gil 
.Hll 
.111 
.Jll 
.Kll 
.1.11 
.Mil 
.Nil 



.B15 
.CIS 
.015 

,E15 
.F15 
.G15 
.HIS 
.115 
.J15 
.K15 
.L15 
.M15 
.N15 



B4 

C4 

04 

E4 

h4 

G4 

H4 

.14 

.14 

K4 

1.4 

, M4 

,N4 



B8 
C8 
OH 
E» 
> 8 
CiH 
H8 
18 
JH 
Kfl 
18 
M8 



.Bl? 
.C12 

.U12 
.F.12 
.F12 

.Gl? 
.HI? 
,112 
. Jl? 
J<12 
.L12 
.Ml? 

.N15 



.B16 
Clb 
.016 
. £16 
,F16 
.Gib 
.H16 
.116 
.Jib 
.K16 
.1.16 
♦ M16 



Bl 
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TEST Hi NON-TAPE MOTION COMMAKOS 



3381 



3382 

3383 

3384 

3385 

3386 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3406 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

34 36 

3437 

3438 



044664 
044664 
044666 



044670 
044670 
044672 
044674 
044676 

04470^ 
044 JOO 
044702 
044704 
044706 

044712 



044740 
044740 
044742 
044744 
044746 

044750 
044750 
044752 
044754 
044756 

044762 



04SOG2 
045042 
045123 
045153 
045234 
045310 
045364 
045442 
045513 



104432 
000762 



100204 
044700 
000000 
000010 



044712 
000000 
000016 
000000 



044740 

100204 
044750 
000000 
000010 



044762 
000000 
000016 
000000 



111 

Ul 
107 
107 
103 
103 
105 
HI 
116 



000000 



000000 



116 
116 
105 
105 
157 
157 
170 
156 
157 



111 
111 
124 
124 
156 
156 
160 
143 
156 



EXIT 



TST 



IlOCAL STORAGE FOR THIS TEST 



THPACKETi 

♦ WORD 
.WORD 

♦ WORD 
.WORD 



T11DATA: 



.WORD 
.WORD 
.WORD 
.WORD 



100204 

T11DATA 



8. 



T11BFR 


14. 
0,0 



THBFRj .BLKW 8. 



T11PK2: 



."<,»10>£177770 



THOTAi 



.WORO 
.WORD 

.woao 

.WORD 



.WORD 
.WORD 
.WORD 
.WORD 



100204 

T11DTA 



8. 



T11BF2 


14. 
0.0 



TUBFt'i ,BLKW 8. 



IlOCAL TEXT MESSAGES FOR 
l - 



TEST 



SEQ 0208 



lALL DONE THIS TEST 



TRAP 
.WORD 



CIEXIT 
L10102-. 



j COMMAND PACKET FOR TEST 

i WRITE CHAR COMMAND. WITH IE. ACK 

jAODRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZS 

■CHARACTERISTICS DATA BLOCK 
, An ?r,tSS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 



I MESSAGE BUFFER 



iCOMMANO PACKET FOR TEST 

iWRITE CHAR COMMAND. WITH IE. ACK 

» ADDRESS OF CHARACTERISTICS BLOCK 

l STARTING VALUE OF BLOCK SIZE 

iCMARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

l LENGTH OF MESSAGE BUFFER 



iMESSAGE BUFFER 



TllNBAi .ASCIZ 
T112R€Ji 
T113REJ: 
T114REJ: 
TliSSRt .ASCIZ 
TUSR2: .ASCIZ 
TllNINTi 
TUTSBA: 

TSTUXDt 

♦ &V&N 



'INITIALISE Command Not Accepted' 

.ASCIZ 'INITIALIZE Not Rejected With Non-Z«ro Mode Field' 

.ASCIZ 'GET STATUS Not Accepted' 

.ASCIZ 'GET STATUS Not Rejected With Non-Zero Mod* Field' 

'Content* of TSSR Incorrect Aftor INITIALIZE* 

'Contents of TSSR Incorrect Aft«r GET STATUS* 

.ASCIZ 'Expected Interrupt Not Recoivod On INITIALIZE* 

.ASCIZ 'Incorrect TSBA Address Aft«r INITIALIZE* 

• ASCIZ: *N&n~T#p« Motion Command*' 



CI 



0446 70 
100213 



TSV5A - HARDWARE TESTS MACRO M1200 

TEST lit NON-TAPE MOTION COMMANDS 

3440 

3441 

344c? 

3443 

3444 

3445 

3446 

3447 

5448 

5449 

3*50 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5450 

5459 

5460 

5461 

5462 

5463 

5464 

5-»65 

5466 

5467 

5468 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 

5480 

5481 

5482 

34P3 
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SEQ 0209 



045544 
045544 
045550 
045554 
045560 
045562 
045564 
045566 
045570 
045572 
045574 
045576 
045600 
045604 



012701 
012721 
005021 
005021 
005021 
005021 
005021 
005021 
005021 
005011 
005037 
000207 



ROUTINE '0 RESTORE COMMANO PACKET TO START-UP (DEFAULT) VALUES 
INITIALIZE COMMAND 



iSAVE THE REGISTERS 

I START OF THE PACKET 

I INITIALIZE WITH ACK , IE 

I ADDRESS OF CHAR DATA BLOCK 

lEXTENDEO ADDRESS 

i SIZE OF DATA BLOCK IN BYTES 

I ADDRESS OF MESSAGE BUFFER 



044712 



TUREST? 




SAVREG 




MOV 


*T11PACKET.R1 


MOV 


#100215, CRD* 


CLR 


(Rl)* 


CLR 


(Rl)* 


CLR 


(Rl)* 


CLR 


(Rl)* 


CLH 


(Rl)* 


CLR 


(Rl)» 


CLR 


(Rl)* 


CLR 


(Rl) 


CLR 


T11BFR 


RTS 


PC 



iLENGTH OF MESSAGE BUFFER 



iCLEAR 1ST 
j RE TURN 



LOC IN MESSAGE BUFFER 



i * 



iROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
iGET STATUS COMMANO 



5464 



045606 
045606 
045612 
045616 
045622 
045624 
045626 
045650 
045652 
045654 
045636 
045640 
045642 
045646 
045650 
045650 
045650 
045652 



T11RT2J 



012701 
012721 
005021 
005021 
005021 
005021 
005021 
005021 
005021 
005011 
005037 
000207 



044670 
100217 



044712 



SAVREG 




MOV 


♦T11PACKET.R1 


MOV 


♦ 100217, (Rl)* 


CLR 


(Rl)' 


CLR 


(Rl)* 


CLR 


(Rl)* 


CLR 


(Rl)* 


CLR 


(Rl)* 


CLR 


(Rl)* 


CLR 


(Rl). 


CLR 


(Rl) 


CLR 


T11BFR 


RTS 


PC 


ENOTST 





104401 



i SAVE THE REGISTERS 

i START OF THE PACKET 

»GET STATUS WITH ACK, IE 

lAOORESS OF CHAR DATA BLOCK 

..EXTENDED ADORESS 

iSIZE OF DATA BLOCK IN BYTES 

i ADDRESS OF MESSAGE BUFFER 

i LENGTH OF MESSAGE BUFFER 



iClEAR 1ST 
I RETURN 



LOC IN MESSAGE BUFFER 



L10102: 



ENOMOO 



TRAP 



CJETST 
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TEST 11: NON-TAPE MOTION COMMANDS 



Dl 



SEQ 0210 



1 
7 

12 

18 

19 045652 
045652 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 045652 
045652 
045654 

32 

33 045654 
C/45654 
045656 
045660 
045662 

34 045664 
045664 
045666 
045670 
045672 

35 

36 045674 

045674 

37 045674 
36 045730 
39 045754 
40 



000010 



000031 
045674 
160010 

177776 

001031 
045730 
OOOOOO 

000776 



104 
111 

111 



TSV6tt 



.TITLE TSV6 - PARAMETER CODING 



BGNMOD TSV6 



.SBTTL HARDWARE PARAMETER CODING SECTION 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LIHARDs j 



105 
116 
116 



L10107: 
126 HPMlt 
124 HPM2: 

124 HPM3s 



BGNHRO 

.WORD L10107-LIH.4RD/2 



GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

iGPRMD 

ENDHRO 

.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



HPMI.0,0, 160010, 177776, YES 

TICOOE 

HPM1 

TILOLIM 

TIHILIM 

HPM2.2,0,0,776,YES 

TICOOE 

HPM2 

TILOLIM 

TIHILIM 

HPM3, 4,0. 340*0, 7. YES 



DEVICE ADDRESS (TSBA/TSDB) 
INTERRUPT VECTOR ' 
INTERRUPT PRIORITY 



jGET TSBA/TSDB REGISTER ADDRESS 



i GET VECTOR ADDRESS. 



tGET INTERRUPT PRIORITY. 



El 
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SOFTWARE PARAMETER COOING SECTION 



SEQ 0211 



42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 046004 
046004 
046006 

53 

54 046006 
046006 
046010 
046012 

55 

56 

57 046014 

046014 
58 

59 046014 

60 046044 

61 046074 

62 046124 
63 

64 

65 

66 

67 

68 

69 

70 

71 

72 046154 

73 

74 046154 

75 

77 

79 046400 

046400 
046402 
046404 

80 046404 
81 



.SBTTL SOFTWARE PARAMETER CODING SECTION 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



000003 



001130 
046044 
177777 



LISOFTjj 



BGNSFT 

.WORD L10110-LIS0FT/2 



105 
111 
120 
120 



116 
116 

105 
105 



L10110: 

101 SPMlj 

110 SPM4: 

122 SPM6 : 

122 SPM7: 



GPRML 

GPRML 

.WORD 

.WORD 

.WORD 

GPRMO 

GPRMO 

ENOSFT 

.EVEN 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.SBTTL 



SPM1, 0,-1, YES 

SPM4, 2,-1, YES 

T*C00E 

SPM4 

-1 

SPM6.4.D, 7777.0, 7777, YES 

SPM7.6.D. 7777.0,7777, YES 



•ENABLE TRANSPORT TESTS 
•INHIBIT ITERATIONS 
'PER TEST ERROR LIMIT 
•PER UNIT ERROR LIMIT 
PATCH AREA 



, GET TRANSPORT TEST FLAG, 
i GET ITERATION CONTROL. 



I GET LOCAL ERROR LIMIT 
j GET GLOBAL ERROR LIMIT 



FINALLY A GENEROUS PATCH AREA. 

ANO AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" HACK 
DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 



PATCH}} 



046400 



000000 
000000 



000001 





.BLKW 


32, 




.-.!377 


♦ 1 




LASTAD 






.EVEN 






.WORD 







.WORD 





LILASTj 


"endmod 

.ENO 





j SET LAST USED ADDRESS, 
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Fl 



SEQ 0212 



SYMBOL 


TABLE 




ADDSSR 


012116 


G 


ADR 


000020 


G 


AMBTSS 


006631 




ASSEMB- 


000010 




A1716 ' 


000003 




BAOOAT 


003152 


G 


BAOSSR 


015670 


G 


BDVPCR- 


177520 


G 


BENBSW 


002226 


G 


BIE 


040000 




BITO - 


000001 


G 


BITOO - 


000001 


G 


BIT01 - 


000002 


G 


BIT02 - 


000004 


G 


BIT03 ■ 


000010 


G 


BIT04 - 


000020 


G 


BIT05 « 


000040 


G 


BIT06 « 


000100 


G 


BIT07 - 


000200 


G 


BIT08 - 


» 000400 


G 


BIT09 ■ 


• 001000 


G 


BIT1 - 


• 000002 


G 


BIT10 - 


■ 002000 


G 


BIT11 » 


• 004000 


G 


BIT12 - 


• 010000 


G 


BIT13 - 


. 020000 


G 


BIT14 ■ 


■ 040000 


G 


BIT15 • 


■ 100000 


G 


BIT2 • 


■ 000004 


G 


BIT3 • 


■ 000010 


G 


BIT4 


• 000020 


G 


BIT5 - 


• 0OOO40 


G 


BIT6 ■ 


■ 000100 


G 


BIT? 


• 000200 


G 


BITS < 


• 000400 


G 


BIT9 


■ 001000 


G 


BOE 


• 000400 


G 


BRINIT 


004453 




BSELO 


■ 000000 




BSEL1 


- 000001 




CHKAMB 


016034 




CHKMAN 


020470 


G 


CHKTSS 


016326 




CKOROP 


017172 




CKEMAX 


017072 




CKMSG 


011350 


G 


CKMSG2 


011470 


G 


CKRAM 


011104 


b 


CKRAM2 


011214 


G 


CMOPKT 


021250 


G 


CMPMEM 


017650 




CONFIG 


017240 




QOUNJ 


002306 


G 


CSRAOD 


002204 


G 


CTAB 


003160 


G 


CTABE 


003172 


G 


CTABM 


003160 


G 



CIAU ■ 

CIAUTO- 

CIBRK ■ 

CIBSEG- 

CIPSU8- 

CICEFG- 

CICLCK- 

CICLEA- 

CICLOS- 

CICLP1- 

ClCVEC- 

CIDCLN* 

CIDOOU- 

CIDRPT- 

CIDU • 

CIEDIT- 

CIERDF- 

CIERHR- 

CICRRO- 

CIERSF- 

CIERSO- 

CIESCA- 

CIESEG- 

CIESUB- 

CIETST- 

CIEXIT- 

CIGETB- 

CIGETW- 

CIGMAN- 

CIGPHR- 

CIGPLO* 

CftGPRI- 

CIINIT- 

CIINLP- 

CIMANI- 

CIMEM • 

CIMSG - 

CIOPEN- 

CIPNTB- 

CCPNTF- 

CIPNTS- 

CIPNTX- 

CIQIO • 

CIR06U- 

CIREFG- 

CIRESE- 

CIREVI- 

ClRFLA- 

CIRPT - 

CISEFG- 

LISPRI- 

CISVEC- 

CITPRI* 

DATA 

DATASC 

DEBUGM 

DEVCNT 



000052 

000061 

000022 

000004 

000002 

000045 

000062 

000012 

000035 

000006 

000036 

000044 

000051 

000024 

000053 

000003 

000055 

000056 

000060 

000054 

000057 

000010 

000005 

000003 

000001 

000032 

000026 

000027 

000043 

000042 

000030 

000040 

000011 

000020 

000050 

000031 

000023 

000034 

000014 

000017 

000016 

000015 

000377 

000007 

000047 

000033 

000003 

000021 

000025 

000046 

000041 

000037 

000013 

002310 G 

020222 

0116^2 

ooaai6 g 



DEVDRO 


023414 




DEVNRD 


023333 




DEVNXR 


023251 




DEVONL 


023201 




DEVSUM 


023144 




DFPTBL 


002154 


G 


DIAGMC- 


000000 




DICEA - 


000001 




DSBINT 


016174 




DUAD12 


004637 




DUFLG 


003106 


G 


DUMMY 


003056 




EF.CON* 


000036 


G 


EF.NEW* 


000035 


G 


EF.PWR* 


000054 


G 


EF.RES- 


000037 


G 


EF.5TA- 


000040 


G 


EMAXDU 


016767 




EN 


000000 




ENAINT 


016142 




ENVIRN 


020620 




EPRTSW 


002176 


G 


EPRT1 


006354 




EPRT2 


006354 




ERCM 


011723 




ERRHI 


002234 


G 


ERRK 


016746 




ERRLO 


002236 


G 


ERRNO - 


002144 




ERRVEC- 


00000* 


G 


ERTABE 


003372 




ERTA8L 


003172 




ESUM 


016750 




EVL 


000004 


G 


EXBCNT- 


000010 




EXP8RE 


015472 


G 


EXPO 


002230 


G 


EXPGOT 


004527 




EXPGT2 


004563 




EXPMSG 


002320 


G 


EXPREC 


015464 


G 


EXTA 


005766 




EXTEND 


005764 




EXTFEA 


002224 


G 


EIEND ■ 


002100 




EILOAO- 


000035 




FATERR- 


000060 




FATFLG 


002220 


G 


FERCM 


011712 




FIFEXP 


012160 


G 


FIF1MS 


012232 




FIF2MS 


012301 




FILLME 


017412 




FNOINT 


004211 




FORCER 


002174 


G 


FREE 


003120 


G 


FREEH! 


oosia* 





FRESIZ 


003122 G 


FUSI 


004113 


FIAU ■ 


000015 


FIAUT0- 


000020 


FIBGN « 


000040 


FICLEA- 


000007 


FIDU - 


000016 


FIEND • 


000041 


FIHARD- 


000004 


FIHW i 


000013 


FIINIT- 


000006 


FIJMP - 


000050 


FIMOD • 


000000 


FIMSG - 


0000 11 


FIPROT- 


000021 


FIPWR - 


000017 


FIRPT « 


• 000012 


FISEG > 


. 000003 


FISOFT- 


. 000005 


FISRV « 


• 000010 


FISUB > 


■ 000002 


FISW ■ 


» 000014 


FITEST' 


. 000001 


GD0AT 


003154 G 


GERRMA 


002172 G 


GETPAT 


020164 G 


GETSEL 


020246 G 


GICNTO- 


• 000200 


GIDELM- 


• 000372 


GIDISP* 


• 000003 


GIEXCP 


• 000400 


GIHILI 


• 000002 


GILOLI 


• 000001 


GINQ « 


. 000000 


GIOFFS" 


• 000400 


GIOFSI 


• 000376 


GIPRMA 


- 000001 


GIPRMD' 


• 000002 


GIPRML 


• 000000 


GIRAOA 


• 000140 


GIRADB 


• 000000 


GIRAOD 


• 000040 


GIRADL 


• 000120 


GIRAD0 


» 000020 


GIXFER 


» 000004 


GIYES 


■ 000010 


HIADDR 


- 001400 


HOE 


■ 100000 G 


HPM1 


045674 


HPM2 


045730 


HPM3 


045754 


IBE 


■ 010000 G 


IDU 


■ 000040 G 


IER 


• 020OO0 G 


IFAULT 


004252 


INCERK 


017034 


INTCPC 


016140 



INTFLA 

INTMAS 

INTR 

INTREC 

INTVEC 

INTX 

INVERT 

IOKCKI 

IOKSTP 

IPRI 

ISR 

IVEC 

IXE 

IIAU 

IIAUTO 

IICLN 

I IDU 
IIHRD 
IIINIT 
IIMOO 
IIMSG 
IIPROT 
IIPTAB 
IIPWR 
IIRPT 
IISEG 
IISETU 
IISFT 
IISRV 

II SUB 
IITST 
JUMP 
KIPARO 
KIPAR1 
KIPAR2 
KIPAR3 
KIPAR4 
KIPAR5 
KIPAR6 
KIPAR7 
KIPDRO 
KIPDR1 
KIPDR2 
KIPDR3 
KIPDR4 
KIPDR5 
KIPDR6 
KIPDR7 
KTENAB 
KTFLG 
KTINIT 
KTOFF 
KTON 
LEHRMA 
LISTAL- 
LOE 
LOOPCN 



016135 

016154 

016206 

002222 

016136 

004274 

021176 

000200 

000001 

002210 

000100 

002206 

004000 

0O0041 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000040 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000167 

172540 

172342 

172344 

172346 

172350 

172352 

172354 

172356 

172300 

172302 

1^2304 

172306 

172310 

172312 

172314 

172316 

003170 

003126 

021044 

017264 

017246 

002170 

000001 

040000 

002214 



Gl 
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SEQ 0213 



LOOPCO 

LOOPFL 

LOT 

L$ACP 

L$APT 

L$AU 

L$AUT 

LSAUTO 

L*CCP 

LJCLEA 

L*CO 

LfDEPO 

L*DESC 

L*DESP 

LJDEVP 

LiDISP 

L*DLY 

LiOTP 

LiDTYP 

LIDU 

LiOUT 

LiDVTY 

LIEF 

LIENVI 

LIETP 

LIEXP1 

LH-XP4 

L$EXP5 

L$HARO 

LIHIME 

LIHPCP 

LIHPTP 

LiHW 

LIICP 

LUNIT 

LiLAOP 

LfLAST 

LiLOAO 

LILUN 

LJMREV 

Li NAME 

L4PRI0 

!_»PR0T 

L*PRT 

LfREPP 

LiREV 

LIRPT 

LISOFT 

LISPC 

L$SPCP 

LISPTP 

LI5TA 

LISW 

LiTEST 

L$TIML 

LtUNIT 

LXOOOO 



013116 

003156 

0O0C10 

002110 

002036 

022370 

002070 

022574 

002106 

022654 

002032 

002011 

003404 

002076 

002060 

002124 

002116 

002040 

002034 

022466 

002072 

003376 

002052 

002044 

002102 

002046 

002064 

002066 

045654 G 

002120 G 

002016 

002022 

002154 

002104 

021546 

002026 

046404 

002100 

002074 

002050 

002000 

002042 

021536 

002112 

002062 

002010 

022702 

046006 

002056 

002020 

002024 

002030 

002164 

002114 

002014 

002012 

002162 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



L 10001 


002174 


L10002 


005762 


L10003 


012034 


L 10004 


012052 


L 10005 


012070 


L10006 


012076 


L10007 


012114 


L10010 


012132 


L10011 


012156 


L10012 


012230 


L10013 


012400 


L10014 


013114 


L10015 


013742 


L10016 


013764 


L10017 


015470 


L 10020 


015476 


L10021 


015504 


L 10022 


015516 


L 10023 


015540 


L 10024 


015566 


L 10025 


015726 


L 10026 


016236 


L 10030 


022320 


L30031 


022464 


L 10032 


022572 


L10033 


022652 


L 10034 


022700 


L10035 


023142 


L 10036 


023702 


1.10037 


023550 


L10040 


023632 


1X0041 


024400 


L10O42 


025072 


t 10043 


026426 


L10O44 


025334 


L 10045 


025634 


L10046 


026132 


L 1004 7 


027532 


L 10050 


C270OO 


L10051 


027350 


L 10052 


031002 


L 10053 


030062 


L 10054 


030406 


L 10055 


034370 


L 10056 


031334 


L 10057 


031620 


L1OO60 


032064 


L10061 


032312 


L 10062 


032556 


L 10063 


033116 


L10064 


035274 


L10O65 


040410 


L 10066 


035536 


L 10067 


035776 


L 10070 


036202 


L10071 


036370 


L10072 


036574 



L10073 
L10074 
L10075 
L100 '6 
L100/7 
L10100 
L10101 
L10J02 
L10103 
L10104 
L10105 
110106 
L10107 
L10110 
MEMAOO 
MEMCK 
MENASC 
MENERR 
MENRES 
MMVEC • 
MSA.FR- 
MSA. NO- 
MSA. ^^R- 
MSA.VO- 
MSGEXP 
MSGLOO 
MSGSTA 
MSGSUB 
MS. ATT- 
MS. EXT- 
MS.RSD- 
MS.RSF- 
MS.RST- 
M2901 
MC166 
M6189 
NBA 

NEWPAS 
NOOEV 
NOINIT 
NOINTR 
NOITS 
NOMAN 
NOMEM 
NP.IR • 
NP.LOO- 
NP.OUT- 
NP.WRP- 
NSI 

N5INIT 
NUL 
NlLCR 
NXM 

NXMFLG 
NXMHI 
NXMLO 
NXMTST 



037026 

G37P32 

043512 

041012 

041404 

042274 

042522 

045650 

043760 

044216 

044436 

044662 

045674 

046014 

013744 

021266 

020437 

020364 

020466 

000250 

000006 

000000 

000004 

000002 

012134 

013054 

012340 

013732 

000006 

000200 

000001 

000020 

000010 

026152 

005550 

005641 

002000 

022026 

003110 

004331 

0O4215 

0O2166 

020524 

005454 

000200 

000040 

OOOIOO 

000020 

004146 

004403 

004523 

004524 

004000 

003132 

003136 

003134 

021442 



G 
G 
G 



NXR 

NXRERR 
NXRX 
NXTU 
OFL 

ONEFIL 
OIAPTS 
OIAU 
OIBGNR 
OIBGNS 
OIDU 
OIERRT 
OIGNSW 
OIPOIN 
OISETU 
PASRPT 
PATCH 
PATQAT 
PC. ERA- 
PC. IER- 
PC.NOO- 
PC.REL- 
PC.REW- 
PKBCNT- 
PKHI * 
PKLOW ■ 
PKTADD 
PKTFRM 
PKTGET 
PKTMES 
PKTRAM 
PKTSSR 
PNT 

PRAMPK 
PRASC 
PRBEXP 
PRBMSG 
PRBREC 
PRBTOT 
PRBYTE 
PRI 

PR I ADO 
PRIAO 
PRIBXO 
PRIEQU 
PRIPKT 
PRIPAM 
PRI1AD 
PRITSS 
PRITO 
PRIT1 
PRIXOR 
PR100 - 
PRIOi - 
PRI02 - 
PRI03 " 
PRI04 * 



003734 
005732 
00S 7 73 

0220*0 

000100 

000000 

000000 

000001 

000001 

000001 

000001 

000000 

000001 

000001 

000000 

022072 

046154 

020220 

002400 

002000 

001000 

000000 

000400 

000006 

000004 

000002 

007550 

007512 

012054 

012100 

004741 

012036 

001000 

013766 

014513 

015460 

015326 

015462 

015413 

015112 

002000 

010154 

010224 

007606 

010054 

007364 

010062 

010270 

006020 

010352 

010415 

007736 

000000 

000040 

000100 

000140 

000200 



PRI05 

PRI06 

PRI07 

PRMESS 

PRMNO 

PRMSGE 

PRMSGO 

PRMSG1 

PRMSG2 

PROASC 

PR1ASC 

PST32W 

PUNIT 

PW.011 

PU.D13 

PW.D22 

PW.NOP 

PW.N01 

PW.RDE 

PW.RDR 

PU.RDS 

PW.RFI 

PU.WCT 

PW.WFI 

PW.WFM 

PU.WMI 

PW.WNP 

PU.WTR 

P.ACK 

P.CMO 

P.CONT 

P.CVC 

P.FMT 

P. FORM 

P. GETS 

P. IE 

P.INIT 

P.MOOE 

P.OPP 

P.POSI 

P. READ 

P.SWB 

P. WRIT 

P.WRTC 

P WRTS 

QVP 

RAMASC 

RAMOAT 

RAMERR 

RAMEXP 

RAMFOR 

RAMSIZ 

RAMTAD 

RCVHIA 

RCVLOA 

ROERR 

RECMSG 



000240 
000300 
000340 
014232 
002316 
014542 
014722 
014767 
015025 
014410 
014455 
003146 
022322 
000021 
000022 
000020 
000000 
000023 
000024 
000001 
000005 
000003 
000006 
000004 
000007 
000010 
000011 
000002 
100000 
000037 
000012 
040000 
000140 
000011 
000017 
000200 
000013 
007400 
020000 
000010 
000001 
010000 
000005 
000004 
000006 
002202 
014146 
002240 
015500 
015520 
010112 
002300 
015506 
002302 
002304 
005202 
002464 



HI 
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SEQ 0214 



RECV 


002232 G 


REGSAV 


020130 


RETERR 


005366 


REWIND 


011004 G 


RMCHBE- 


000167 


RMCHEN- 


000200 


RMMSG8- 


000215 


RMMSGE - 


000234 


RMPKTB- 


000201 


RMPKTE- 


000210 


RMR 


010000 


RWPACK 


011100 


SC 


100000 


SCE 


020OO0 


SCHERR 


005i' 74 


SCME 


0050J7 


SOELAY 


010650 


SELASC 


020432 


SELDAT- 


000004 


SEL2 ■ 


000002 


SETMAP 


017306 


SETU 


022124 


SFFMSG 


012072 G 


SFHERR 


003701 


SFIERR 


003646 


SFIMSG 


012024 G 


SFPTBL 


0O2164 G 


SIFLAG 


003150 G 


SIMSG 


011756 


SKIPT 


003374 


SOFINI 


015764 G 


SPACE 


010462 G 


SPM1 


046014 


SPM4 


046044 


SPM6 


046074 


SPM7 


046124 


SRO 


177572 


SRI 


177574 


SR2 


177576 


SR3 


• 172516 


SSR 


000200 


STATCO 


012402 


SVCGBL' 


• 000000 


SVCINS- 


• 000000 


SVCSUB- 


■ 000001 


SVCTAG' 


. 000003 


svrTST- 


• 000001 


SILSYM 


■ 010000 


SO.IDB' 


• 000010 


SO.IFB- 


• 000002 


SC.IFP- 


. 000001 


SO. IL0« 


• 000020 


SO. ION 


■ 000040 


SO.IRD 


• 000100 


SO.IRW 


■ 000004 


SO. ISP 


• 000200 


Sl.ICfc 


• 002000 



Sl.IEO- 

Sl.IFM- 

Sl.IHE- 

Sl.IIO- 

S1.I1R- 

S1.I2R- 

Sl.PAR- 

S2.ATI- 

S2.BTI- 

S2.DIM- 

S2.ILW- 

S2.INR- 

S2.0UT- 

S2.UN0- 

TBLENO- 

TCOASC 

TCOCOO 

TEMPI 

TEMP2 

TERCLS- 

TESTNO" 

TEXASC 

TFCASC 

TIMEXP 

TIMSGO 

TINERR 

TMPBFR 

TNAM 

TRANST 

TSBA • 

TSBAH • 

TSBAM2 

TS8AM3 

TSD6 • 

TSOBH • 

TSFCOO 

TSREJ ■ 

TSSOEF 

TSSR - 

TSSRBI 

TSSRFO 

TSSRH ■ 

TSSX 

TSTBLK 

TSTCNT 

TSTEND 

TSTFLA 

TSTLOO 

TSTPTR 

TSTSET 

TST1ID 

TST10I 

TST11I 

1ST2ID 

TST3I0 

TST4I0 

TST510 



010000 

001000 

000400 

004000 

020000 

040000 

100000 

000010 

000004 

000200 

000100 

000020 

000040 

000003 

003056 

006472 

006672 

003112 

003114 

000016 

000013 

006431 

006533 

015542 

015570 

012011 

002630 

016674 

002164 

000000 

000001 

026242 

026324 

000000 

000001 

007232 

000006 

006602 

000002 

0034 76 

006411 

000003 

004014 

002750 

002212 

016710 

002312 

016446 

002*14 

016500 

023662 

043337 

045512 

024 352 

025045 

026404 

027402 



TST6ID 

TST7ID 

TST8I0 

TST9ID 

TSV2 

TSV3 

TSV4 

TSV5 

TSV6 

TTIBFR 

TTICSR 

TTIVEC 

T»ARGC 

T1C0OE 

TIERRN 

TIEXCP 

TIFLAG 

TIGMAN 

TIHILI 

TtLAST 

TILOLI 

TILSYM 

TILTNO 

TINEST 

TINSO 

TINS1 

T$NS2 

TINS3 

TIPTNU 

TISAVL 

TISEGL 

TISEKO 

TISU6N 

TITAGC 

TITAGN 

T1TEMP 

WEST 

TITSTM 

TITSTS 

TMAU 

TIIAUT 

TMCLE 

TMDU 

TMHAR 

TMMW 

TIIINI 

THMSG 

TMPRO 

TMRPT 

TMSEG 
TIISOF 

TllSrtV 
T$*SU6 

TtlSU 
TIITES 
Tl 
T1L00P 



030763 

034273 

035257 

040311 

002000 

002174 

021536 

023464 

045652 

177562 

177560 

000060 

000003 

001130 

002144 

000000 

000040 

000000 

000776 

000001 

000000 

010000 

000013 

177777 

000000 

0O0005 

000002 

0O0003 

000000 

177777 

177777 

010000 

000004 

177777 

010111 

000000 

000013 

177777 

000001 

010031 

010033 

010034 

010032 

010107 

010000 

010030 

010025 

010027 

010035 

010000 

010UO 

010026 

010106 

010001 

010102 

023464 

023502 



Tl.l 


023504 


T1.2 


023564 


T10 


040412 G 


T10BFR 


042552 


T10BUF 


042614 


T100AT 


042540 


T100TA 


042602 


T10INT 


043250 


T10LO0 


040430 


T10HBF 


042634 


T10NBA 


042731 


T10NIN 


04*157 


T10NN6 


043013 


T10PAC 


042530 


T10PKT 


042572 


T10RST 


043366 


T10RT2 


043440 


T10SSR 


, 43070 


T10.". 


040430 


U0.2 


041014 


T10.3 


041406 


T10.4 


042276 


Til 


043514 G 


T11BFR 


044712 


T11BF2 


044 762 


T110AT 


044700 


T11DTA 


044750 


T11L00 


043532 


T11NBA 


045002 


T11NIN 


045364 


TUPAC 


044670 


TUPK2 


044 740 


TURES 


045544 


TURT2 


045606 


T11SR2 


045310 


T11SSR 


045234 


T11TSB 


045442 


Til.l 


043532 


TU.2 


043774 


Til. 3 


044220 


Til. 4 


044440 


T112RE 


045042 


T113RE 


045123 


TU4RE 


045153 


T2 


023704 G 


T2L00P 


023722 


T2SSR 


024300 


T2TSBA 


024166 


T2TSSR 


024233 


T23A 


003140 G 


T23B 


003142 G 


T3 


024402 G 


T3BFLG 


003144 G 


T3L00P 


024420 


T3SSR 


024 7^4 


T3TSBA 


024664 


T3TSSR 


024730 



T4 

T4L00P 

T4.1 

T4,2 

T4.3 

T5 

T5AD0R 

T5L00P 

T5MEM 

T5.1 

T5.2 

T6 

T6INT 

T6L00P 

T6NBA 

T6NINT 

T6PACK 

T6SSR 

T6TSBA 

T6.1 

T6.2 

T7 

T7BFR 

T70ATA 

T7INT 

T7L00P 

T7NBA 

TVNINT 

T7PACK 

T7REST 

T7SP 

T7SSR 

T7TSBA 

T7.1 

T7.2 

T7.3 

T7.4 

T7.5 

T7.6 

T72DAT 

T7200N- 

T72NBA 

T72REJ 

T73REJ 

T74REJ 

T75REJ 

T8 

T8BFR 

T8DATA 

T8L00P 

T8NVCK 

T8PACK 

T8SSR 

TBVCK 

T9 

T96FR 

T9DATA 



025074 

025114 

025074 

025336 

025636 

026430 

027470 

026446 

027432 

026452 

027020 

027534 

030553 

027552 

030450 

030631 

030440 

030475 

030711 

027552 

030076 

031004 

033166 

033150 

034121 

031022 

033300 

034030 

033140 

034322 

033160 

033741 

034210 

031022 

031350 

031622 

032066 

032314 

032560 

033206 

033222 

033222 

033353 

033452 

033545 

033643 

034372 

035022 

035010 

034410 

035077 

035000 

035170 

035042 

035276 

037262 

037250 



II 
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SEQ 0215 



T9INV 


040137 


UAM 


000200 G 


T9L00P 


0*3320 


UNITN 


002200 G 


T9NBA 


037316 


UNREC - 


000006 


T9NINT 


040046 


USI 


004117 


T9P/XK 


037240 


WAITF 


016240 G 


T9RFST 


040336 


UC.IFA- 


000200 


T9SSR 


037757 


WCIFE- 


000002 


T9TS6A 


040226 


WC.IGO- 


000001 


T9.1 


035320 


WC.IRE- 


000010 


19.2 


035566 


WC.IRW- 


000004 


T9.3 


036000 


UC.IOT- 


000100 


T 9.4 


036204 


WC.IlT- 


O0CO40 


T9.5 


036372 


WC.I5R- 


000020 


T9.6 


036576 


WF.IED- 


000010 


T9.7 


037030 


WF.IER- 


000004 


T920AT 


037302 


UF.IHI- 


000200 


T92D0N- 


037316 


WT.IRE- 


000040 


T92REJ 


037371 


WF.IWF- 


000020 


T93REJ 


037470 


UT.IWR. 


000100 


T94REJ 


037563 


WF.I3R- 


00CO02 


T95REJ 


037661 


WF.I4R- 


000001 


. ABS. 


046404 < 


300 






000000 1 


301 




ERRORS 


DETECTED: 







WRTCHR 

WRTERR 

URTMSG 

WSMBK 

XFERAS 

XNXM 

XORBFO 

XORFOR 

XSTO 

XST1 

XST2 

XST3 

XST4 

xsobot 

XSOEOT 

XSOIE 

XSOILA 

XSOILC 

XSOLET 

XSOMOT 

XSONEF 



010652 G 

005107 

005052 

021260 G 

015730 

016366 

007670 

010006 

000006 G 

0O0010 G 

000012 G 

000014 G 

000016 G 

000002 

OOOOOl 

000040 

000400 

001000 

020000 

000200 

002000 



XSOONt- 


000100 


XSOPED- 


000010 


XSORLL" 


010000 


XSORLS- 


. 040000 


XSOTMK- 


• 100000 


XSOVCK- 


• 000020 


XSOWLE' 


• 004000 


XSOWLK- 


• 000004 


XXCOMM 


003116 


XtALWA- 


■ 000000 


XIFALS' 


• 000040 


XIOFFS* 


• 000400 


XITRUE- 


■ 000020 


Xl t C0R- 


■ 020000 


Xl.DLT- 


■ 100000 


Xl.MBZ- 


• 017375 


Xl.RBP* 


■ 000400 


XI. SPA 


• 040000 


Xl.UNC 


• 000002 


X2.BUF- 


. 000100 



VIRTUAL MEMORY USED: 28660 WORDS ( 113 PAGES) 
DYNAMIC MEMORY: ^0060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:37:00 
CNTSAA0.BlC,CNTSAAO,SEQ/-SP«SVC34/ML,TSViA,TSV22A,TSV3A,TSV4,TSV5A,TSV6 



X2.EXT 
X2.0PM 
X2.RCE 
X2.REV 
X2.SPA 
X2.UNI 
X2.WCF 
X3.DCK 
X3.MBZ 
X3.MDE 
X3.0PI 
X3.REV 
X3.RIB 
X3.SPA 
X3.TRF 
X4.HSP 
X4.M8Z 
X4.RCE 
;<4.TSM 
X4.WRC 



000200 
100000 
040000 
000077 
035400 
000007 
002000 
000010 
000006 
177400 
000100 
000040 
OOOOOl 
000200 
000020 
100000 
017400 
040000 
020000 
000377 



■ Bl 
.CI 
.01 
.El 
.Fl 
.Gl 
• HI 
,11 



